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MÓDULO LUNAR: COMANDE O POUSO 


Gráficos de alta resolução. Paisagem lunar. Mar- 
cador de combustível. Velocímetro. Controles de 
pouso. Personalização do programa. Efeitos sono- 
OS, CONDES. UMOGUIO secs sines sa raa 821 


AVALANCHE: MONTE O CENÁRIO 


Rotina Assembly responsável pela criação e pelo 
SCROLL horizontal no Spectrum. MSX e TRS- 
Color: modo texto. Uso da tabela criada pelo pro- 
grama BASIC para definir o contorno da montanha. 
A montagem do cenário. O uso dos blocos gráfi- 
cos. Como colorir os espaços. O placar. Redefini- 
ção de Caracieros «ace cccsarmaio soness reis o 824 





UMA AGENDA ELETRÔNICA (1) 


Calendário mensal. Cálculo de um evento. Calen- 
dário anual. Agenda diária. Registro de eventos. Fi- 
nanças, encontros, celebrações e feriados. Como 
usar a agenda. Primeira parte do programa: roti- 
nas e tela do menu principal................... 834 
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PLANO DA OBRA 

“INPUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, po- 
derão ser comprados, a preços atualizados, da seguinte forma: 1. PES- 
SOALMENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribui- 
dor local, cujo endereço poderá ser facilmente conseguido junto a qual- 
quer jornaleiro de sua cidade. Em São Paulo, os endereços são: rua Briga- 
deiro Tobias, 773, Centro; av. Industrial, 117, Santo André; e no Rio de 
Janeiro: rua da Passagem, 93, Botafogo. 2. POR CARTA — Poderão ser 
solicitados exemplares atrasados também por carta, que deve ser enviada 
para DINAP — Distribuidora Nacional de Publicações — Números Atra- 
sados — Estrada Velha de Osasco, 132, Jardim Teresa — CEP 06000 — 
Osasco — SP. Não envie pagamento antecipado. O atendimento será fei- 
to pelo reembolso postal e o pagamento, incluindo as despesas postais, 
deverá ser efetuado ao se retirar a encomenda na agência do Correio. 3. 
POR TELEX — Utilize o nº (011) 33 670 DNAP. 

Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Pu- 
blicações, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Cama- 
rate — Lisboa; Apartado 57 — Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, os pedidos serão 
atendidos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre título e/ou autor da obra, 
além do número da edição. 
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MÓDULO LUNAR: 
COMANDE POUSO 





Você vai precisar de muita habilidade 
e sangue-frio para fazer uma nave 
pousar na superfície lunar em 
segurança. O jogo é envolvente 

e facílimo de programar. Confira! 


Programação de jogos nem sempre é 
sinônimo de longas e complicadas lista- 
gens. Como você verá neste artigo, po- 
demos criar jogos muito interessantes 
com programas relativamente simples e 
curtos. 

Nosso jogo, Módulo Lunar, está 
completo. Ele oferece ao jogador gráfi- 
cos de alta resolução e controle total so- 
bre o módulo. Se você quiser, 
acrescente-lhe sons, novas mensagens — 
como **Quer jogar novamente?” — ou 
modifique a paisagem lunar. Tudo de- 
pende de sua preferência. 


“CONTROLES 





Você pode controlar a nave alternan- 
do o sentido (esquerda/direita) de seu 
movimento e usando os foguetes para 
diminuir a velocidade de impacto com 
a plataforma lunar. 

Os controles são, respectivamente: A, 
SeF para o Apple, o TK-20W0 eco M5SA; 
5,7e8 para o Spectrum e as setas para 
o TRS-Color. 


e a 


bad 


30 PROGRAMAÇÃO DEJOGOS 





10 COLOR 15,1,1:SCREENZ 

20 FORN=1 TO 50: PSET(RND(1)*255 
+ AND (1)*140),15:NEXTN 

30 DRAW”"C6BMO, 188M+18,-30M+18,+ 
15M+18,+8M+1B,-BM+16,-20M+16,-5 

M+13,+20M+14,+BM+18,+4M+10, 0OM+1 
0,-10M+20,-25M+10,+20M+10,+10M+ 
20, +5M+18,-20M255,191º 

40 PAINT(10,191),6 

50 DRAWºC1BM145, 188M+2,-4M+14,0 

| APR 

80 DRAW"BM93,157C1D31R1U31* 

90 9=-TIME:LX=INT(RND(S)*240)+1 
O: LY=INT(RND(8)*10)+15:XV=INT(R 

ND(S)*10):YV=0:F=256 

100 AX=LX:AY=LY 

110 GOSUB 4000 

120 GOSUB 1000:GOSUB 2000 : GOSUB 
3000 


130 IF LY<173 THEN 120 

















PAISAGEM LUNAR 
MARCADOR 

DE COMBUSTÍVEL 
VELOCIMETRO 
CONTROLES DE POUSO 





140 FOR TT=0 TO 200:NEXT 

150 CLS: SCREENO: COLOR à RR ET O 
160 IF LX<1l47 OR LX>161 THEN 19 
O 

170 IF ABS(YV)>4 THEN 200 

180 LOCATES, 10: PRINT"parabéna, 
pouso bem sucedido”":GOTO 210 
190 LOCATE?,1]0:PRINT”!! fora da 
plataforma !!":GOTO 210 í 

200 LOCATEO,10:PRINT"nave danif 
icada, velocidade inadequada” 
210 END 

1000 IF LY>1 THEN GOSUB 4000 
1010 LK=LK+KV:LY=LT+YV 

1020 IF LX<5 THEN LX=LX+245 
1030 IF LX>250 THEN LX=LX-242 

1040 IF LY<l THEN RETURN 

1050 IF LY>150 THEN RETURN 

1060 GOSUB 4000 

1070 RETURN 

2000 YV=YV+.5S: IF F<l THEN RETUR 

4] 


2010 IS=INKEYS:IFIS=""THENZ01O0 








| | ] E | ai 
| ] | | 


040 IFIS=TFC AND F>23 THEN TVeT 
7-1:Fel RETUEN 
£tUS0 IFISe A THEN KV=KV-,5:F=F 


RETURN 


2040 1FISe*S* THEN EVcKV+.5:FeFf 
RETUÉN 

£050 RETUEN 

400 GSE=-STES (INT( (Z56-F)/B)) 

3010 DERAW"CGEM93,157D"+098+"RIU” 

+68 

5020 DRAW"C6GEM10S,155DI5"” 


3030 DRAWNCCISBM1LOS,173M+0,"+STHR 
StHINTITV)) 

3040 RETURN 

4000 DBANCCIEMNC+STES (AX) 4" ,"+BT 

RS(AT)+M-5, +10M+5, -20+5, +2M-4, 
Le 

40140 


"+STES (INT (LT) )+"M-5 


DRAW CILEMC+ETERS (INTILX) 14 
*10M+5, 


ZH+5,+2ZH-4,-10" 
4020 AX=INT(LH) AY=INTILT) RETU 
EN 


ri 


+Uy JUME HOR ECOLUON= 3 

O FORNOoeIATO SO: HPLOT END 
(1) * 280, END (1) * 120: NEXT 
h 

0 HPLOT 0,160: FOR WN = 1 TO] 

*: READ GX,6Y7: HPLOT TO GX,6F: 
NEXT W 

rs BPLOT 152, LEU TU 152,155: H 

PLUI TO 166,155: HPLOT TO 166 
Ei 


PA! E, 


EO DATA 18,130,36,145,54,15 
3, 72,145,868,125,104,120,117,140 
PREENLLACNM Er ML TLM E 
!*,196,117,206,137,216,147,236,] 
52,254,132,279,159 


SU LX = INT ( AND (1) * Z40) + 
LJUrLT INT é END (1) * 10) + 
LS: MV = INT ( BND (1) * 15):T 
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Ve O:F = 246 
100 AX = LH:AT = LY 

115 GOSUR 4000 

120 GOSUB 1000: GOSUB 2000: Ge 
SUB 3000 


1 30 IF LY < 140 THEN GOTO :20 


1» FOR TT O TO 100: NEXI 
140 HOME : IF LX S 152 08 LX » 
166 OR ABS (YV) 2 4 THEN GOT 
O 160 
150 VYTAR (424) PRINT "PARABENS 
POUSO BEM SUCEDIDO”: GOTO 170 
160 VTAB (24): PRINT TAB( 10) 
St) VOCÊ COLIDIU EI” 
L7O FOR TT = O TO 2500: NEXT 
IBO STOP 
1000 IF LT > 1 THEN GOBUB 400 
q 
RUA A TP ASA A, 
1030 LF LA << 5 THEN LA - LX + 
4º 
1035 JF LX > 250 THEN LX = LX 
(4d 
1036 IF L? < 1 THEN RETURN 
10537 JF LT > 150 THEN RETURN 


1040 GOBUE 4000 

14.04 RETURN 

2000 TV = TU + à: IF FS LL THE 

NH o BETUEN 

2010 GET IS: IF I9 = "Fº AND F 

PO o di DD 4 DA é RR RO O RE 
FETUEN 

2020 IF 19 - “Ah THEN XV « XY 
A: 1: RETURN 

2030 IF Ig - C8º THEN XV « XY 

+ S:F = F - |: RETURN 

040 RETUEN 

1000 HOME VTAB (23): PRINT * 

COMBUSTIVEL: “GF 

3010 PRINT PRINT "VELOCIDADE 
CE ENT (YV) 

3020 VTAB (1): RETURN 

4000 HCOoLOR= O 

4010 HPLOT AX,AT: HPLOT TO AX 
SAT + 10+ HPLOT TO AK,AT + 

B: HPLOT TO AX + 5D,AT + 10: H 


PLOT TO AX + 1,ATY 

4015 HCOLOR= 3 

4020 HPLOT LX,LY: HPLOT TO LX 
- 5,LY + 10: HPLOT TO LX,LY + 

8: HPLOT TO LX + 5,L7 + 10: H 


PLOT TO LX + 1,LY 
4025 AX = LX:AY = LY: RETURN 
10 PMODE 4,1) 


20 S53-PEEK(18B6)*256:DIML(1),B(I 


) 

50 FOR K=-0 TO 7:READ A:POKE K*3 
+85, A:NEXT 

4U GET(0,0)-(7,7),L,G 

50 DATA 24,60,90,126,126,90,129 
129 

CO) PCLS:SCREEN 1,1 

70 DRAWN"BMO,191":FOR X=0 TO 256 
STEP L6C:READ A:LINE-(X,A),PSET 
“NEXT: PAINT(127,191) 

BO DATA 151,173,177,165,146,120 
-167,17/4,177,181,1681,170,140,12 
2,158,170,16] 

90 DRAWºBMI, ISENRDNRDEDNRDROL * 
100 LINE(B,1)-(254,5),PSET,BF:L 
INE (132,7)-(132,12),PBET 

110 LX=BND(248)-1:LY=15+PND(10) 
AVSBND(1S)-B:TV=O:F=246 

120 GOSUB 1000:GOSUB 2000:GoSUB 
3000 

130 IF LY<174 THEN 120 

140 CLSB:IF TX<144 OR LX>153 OR 
fV>4 THEN 160 

150 PLAYºTIOO4AGFEGFE": PRINT €2 
24," PARABENS, POUSO BEM SUCEDID 

O!":GoTo 170 

160 PLAYº"TLOGOZADEFGEBCDEFA* : PUT 
(LX, LTY)-(LX+HO,LY+7),L, PSET 

170 FOR G-1 TO 4000:NEXT 

160 END 

1000 IF LY>212 THEN PUTILX,LT)-( 
LX+7,LY7+7),B,PSET 

LÍOLO LXeLHHHV:LT=LT+YV- Se 255-(2 
55 AND LY) : BOUNDS-(8=0),1 

1020 IF LY<13 THEN RETURN 

1030 IF LXCO OR LX2247 THEN LX= 








* puê 


pri 


ll, 


EE 





-247* (LX>0) READ GX,6Y: DRAW 0X,0Y: NEXT + IF LY<300 THEN SOUND .02,LY/ 

1040 GET(LX,LY)-(LX+7,LY+7),B,6 N 5 

1050 PUT(LX,LY)-(LX+7,LY+7),L,P BO DATA 18,30,18,-15,18,-8,18 1030 IF LX<5 THEN LET LX=LX+24 

SET: RETURN .8,16,20,16,5,13,-20,16,-8,18 5 

2000 YV=YV+.5:IF F<l THEN RETUR ,=4,15,0,10,10,20,25,10,-20, 1035 TF LX>250 THEN LET LX=LX- 

N 10,-10,20,-5,18,20 242 

2010 IF PEEK(341)=247 AND F>3 T 90 PRINT AT 0,4; INK 6; PAPER 1036 IF LY>2160 THEN RETURN 

HEN YVU=YV-1:F=F-3:RETURN 2:"COMB:";AT 0,18;"VELOCID :” 1037 IF LY<1IO THEN RETURN 

2020 IF PEEK(343)=247 THEN XV=X 110 LET LX=RND*240+10: LET LY= 1040 GOSUB 4000 

V-.S5:F=F-1:RETURN 160-(15+ (RND*10)): LET XV=RND* 1050 RETURN 

2030 IF PEEK(344)=247 THEN KV=X 15: LET YV=0: LET F=246 2000 LET YV=YV-.5: IF F<1l THEN 

Vv+.5S:F=F-1 115 GOSUB 4000 RETURN 

2040 RETURN 120 GOSUB 1000: GOSUB 2000: 2010 IF INKEYS="7" AND F>3 THEN 

| 3000 LINE (9+F,1)-(12+F,5), PRES GOSUB 3000 | LET YV=YV+1: LET F=F-3: RETUR 
ET,BF 130 IF LY>20 THEN GOTO 120 N 
| 3010 V=2*YV: IF ABS(V)>122 THEN 135 PAUSE 50 | 2020 TF INKEYS="5" THEN LET XV 

V=122*S9GN(V) 140 CLS : IF LX<154 OR LX>164 =KV-.5: LET F=F-1: RETURN 

3020 LINE(8B,8)-(255,11),PRESET, OR ABS YV>4 THEN GOTO 160 2030 IF INKEY8S="B" THEN LET XV 

BF:LINE(132,8)-(132+V,11),PSET, 150 PRINT ” PARABENS , POUSO B =XV+.5: LET F=F-1: RETURN 

BF EM SUCEDIDO!": RESTORE 5000: 2040 RETURN 

3030 RETURN FOR N=1 TO 14: READ A,B: SOUND 3000 PRINT AT 0,10;" "+STRS F+" 
A,B: NEXT N: GOTO 170 ";AT 0,28;" "+STRS INT YV+" * 
160 PRINT AT 10,7; FLASH 1; 3010 RETURN 
INK 2; PAPER 7;"!!!!!CRASH!!!! 4000 OVER 1: PLOT LX,LYT: DRAW - 
|". FOR T=1 TO 50: BORDER ARND*  5,-10: DRAW 5,2: DRAW 5,-2: DRA 

10 BORDER 1: INK 7: PAPER O: 7: SOUND .01,RND*5: NEXT T W -4,10 

CLS : BRIGHT 1 170 PAUSE 400 4010 OVER O: RETURN 
20 FOR N=1 TO 50: PLOT RND* 180 STOP 5000 DATA .2,4,.2,7,.2,5,.2,12, 
255, (RND*135)+40: NEXT W 1000 IF LY<160 THEN GOSUB 4000 .2,0,.2,4,.2,4,.2,5,.6,7,.2,12, 


?0 PLOT 0,0: FOR N=1 TO 16: 1010 LET LX=LK+XV: LET LY=LY+YV .2,0,.2,4,.2,2,.6,0 





] 
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Não há avalanche sem montanha. Chegou | 
a hora de colocar em cena a encosta | 
que Willie irá escalar. Precisaremos 

também colorir a superfície e completar | 
a tela com um belo céu azul. | 





O título e os créditos foram exibidos. 220 REM ld h1,31 
O jogador já leu as instruções e ouviu 230 REM ld a,45 
a execução do tema de abertura. Che- o id get sea 
gou a hora de abrir as cortinas — ou, da EM 1d 2 (57329) 
no caso de Avalanche, a hora de dese- 550 REM cp 1 | 
nhar o cenário. No Spectrum, este se 280 REM jr nz,mp 
movimenta da esquerda para a direita, 290 REM Id bc,57272 
enquanto a tela de instruções é arrasta- 300 REM mp ld a,44 
da em sentido oposto — ou seja, realiza- 310 REM call print 
se um SCROLL horizontal. No MSX e 320 REM ld a, (57328) 
no TRS-Color, a tela de instruções está 330 REM ld b,a 
no modo texto. Por isso, enquanto oce- 340 REM ld a,23 
nário é colocado na tela gráfica, a pági- eo ape droits - 
na de instruções vai se apagando, +40 npEM Id a 32 
cedendo-lhe lugar. O deslocamento do 580 REM Id de,32 
cenário para o vídeo se dá da mesma 490 REM add hl,de 
maneira. 400 REM call lg 
O processo de montagem do cenário 410 REM pop bc 
é bem simples. Um programa BASIC 420 REM djnz mpi 
cria uma tabela com o contorno da 430 REM ld h1,49 
montanha (para o TRS-Color isso foi 440 REM ld b,12 
dado no artigo anterior). A partir do 450 REM ld a,4l | 
conteúdo da tabela, a rotina em código 460 atá eiid fe BTAvIO 
desenha o perfil da encosta. O céu e a fo DO MSC TES 
terra podem ser coloridos por meio de 490 REM Id b,7 
blocos gráficos, colocados acima e abai- s0o REM call me 
xo do perfil da encosta. À medida que s10 REM call elb 
o cenário é transferido para a tela, va- 520 REM ret 
mos retirando a página de instruções. 530 REM acl ld h1,16384 
540 REM ld b,216 
ed = 550 REM lpi ld c,31 
Pc 560 REM 1p3 inc hl 
lo E " 570 REM 1d a, (hl) 
A rotina Assembly listada abaixo é ga ro a 


responsável pela criação e pelo 600 REM inc hl 


SCROLL horizontal do cenário. 610 REM dec c 

| 620 REM 3r nz,1lpj3 

10 REM orq 58303 630 REM LHE h1 ú 

20 REM lai ld a,l6 640 REM djnz 1pi 

30 REM ld (57328),a 650 REM ret 

40 REM ld ix,58034 660 REM lg push bc 

Agrário ama 670 REM Id bc, 15616 

O REM mpi push bc 680 REM call print 

70 REM call scl 690 REM ld de,32 
REM 1d a,0 700 REM add hl,de 
REM ld (57329),a 710 REM pop bc 
REM 1d a, (ix+0) 720 REM djnz lg 
api as 730 REM ret 
REM cp 740 REM elb ret 
REM 3r nz,lv 750 REM org 5SBI46 
REM dec b 760 REM me * 
nes Pr a 770 REM orq 58217 

M « 780 E * 

REM ld (57328),a Ru 
REM Id a, Este programa BASIC coloca na me- 
REM ld (57329) ,a mória do microcomputador a tabela cu- 
REM lv ld a, (57328) jo conteúdo é responsável pela defini- 


REM ld b,a ção do perfil da encosta, 








E | COMOUSARUMA TABELA E O USO DOS BLOCOS GRÁFICOS 
PARA DEFINRO EE COMO COLORIR 





CONTORNO DA MONTANHA OS ESPAÇOS 
] DESLOCAMENTO E REDEFINIÇÃO 
DO CENÁRIO DE CARACTERES 





5 CLEAR 57000 

10 FOR n=57973 TO 58034 

20 READ a: POKE n,a: PRINT n; 
* "CHARS a 

30 NEXT n 
40 DATA B3,67,79,82,69,45,48B, 
48,48,48,48,76,73,86,69,83,45 
153,71,65,77,69,32,79,86,69, 
B2,32,33,33,33,35,35,33,35,35 
135 ,13,.35,35,33,95,933,35,.95:, 
35,35,33,35,33,35,35,35,35,33 
195,935,33,35,35,35,5d 


Como de costume, O programa usa 
um laço FOR...NEXT para colocar da- 
dos na memória. O endereço inicial da 
tabela criada está na linha 10. A linha 
5 protege o topo da memória para que 
os dados das outras tabelas não sejam 
apagados. Na linha DATA os valores 
33 correspondem a porções inclinadas 
do perfil da encosta, e os números 35, 
a porções planas. Os demais valores são 
códigos das letras utilizadas para escre- 
ver O score e o número de vidas que res- 
tam a Willie. 





A MONTAGEM DO CENÁRIO 


Após a definição do endereço ini- 
cial, temos duas instruções cuja função 
é colocar no endereço 57328 o valor 16. 
Esse número corresponde à coordena- 
da Y do extremo superior direito do ho- 
rizonte. A posição 57328 será usada pa- 
ra armazenar números, como se fosse 
uma variável. 

Em seguida, a instrução ld ix,58034 
coloca no par IX o último byte da tabe- 
la que define o perfil da encosta. Esse 
byte define o declive do extremo supe- 
rior direito da montanha. 

O registro B será usado como conta- 
dor do número de colunas já desenha- 
das. Por isso, a instrução Id b,32 colo- 
ca nele o valor 32, correspondente ao 
número de colunas da tela. A próxima 
linha guarda esse valor na pilha. 

Em seguida, a sub-rotina scl é cha- 
mada. Ela se encarrega da translação do 
conteúdo da tela uma coluna para a es- 
querda — ou seja, realiza um SCROLL 
horizontal, 

Uma segunda posição da memória, 
com endereço 57329, será usada como 
indicador. Ela informará à rotina se o 








A E RR SO 


nível da encosta está diminuindo ou per- 
manece plano naquela coluna. Se o byte 
for O, a encosta é plana; se for 1, o ní- 
vel está diminuindo. As instruções das 
linhas 80 e 90 colocam no endereço o va- 
lor inicial O. 

A instrução ld a,(ix + 0) coloca no 
acumulador o último byte da tabela de 
contorno. Temos que usar o *“ + 0" nes- 
sa instrução porque o endereçamento in- 
direto com o registro IX deve ser inde- 
xado. Não existe uma instrução ld a,(ix). 
À instrução dec ix subtrai uma unidade 
do conteúdo de IX, para que ele aponte 
para o próximo valor da tabela, Obser- 
ve que esta será lida ''de trás para a 
frente”, 

A instrução cp 33 tem a função de 
comparar o conteúdo do acumulador 
com 33, valor indicativo de que o nível 
da encosta está diminuindo, Se o acu- 
mulador não contém esse valor — ou se- 
ja, se a montanha é plana no local em 
questão —, a instrução jr nz,lv salta em 
direção ao rótulo lv. 

Se o conteúdo do acumulador for 33, 
a instrução jr nz,lv é ignorada, pois o 
indicador de zeros foi ativado por cp 33. 
O contador B e a coordenada Y do per- 
fil (armazenada em 57328) são diminuí- 
dos em uma unidade. O indicador arma- 
zenado no endereço 57329 passa a valer 
1. Todo esse processo é executado pe- 
las linhas 140 a 190. 

A instrução dec b diminui o valor de 
B. As alterações do conteúdo dos ende- 
reços 57328 e 57329 são feitas com au- 
xílio do acumulador, já que não existe 
uma instrução que, diretamente, dimi- 
nua o valor de um byte da memória ou 
transfira um valor para determinado en- 
dereço. Não há instruções do tipo dec 
57328 ou ld (57329),1. 

Quer a encosta da montanha apresen- 
te inclinação, quer continue plana, o 
programa continua na rotina lv. 


A ROTINA lv 





A linha 200 e a linha 210 colocam o 
valor da coordenada Y no registro B. Is- 
so é feito com o auxílio do acumulador, 
já que o registro B não recebe o valor 
de um byte da memória via endereça- 
mento indireto. Não há uma instrução 
ld b,(57328). 

A instrução ld h1,31 coloca em HL a 
posição da memória de vídeo que cor- 
responde ao canto superior direito da te- 
la. Id à,45 coloca no acumulador o va- 
lor 45, que, quando transferido para a 
tabela de atributos, resultará num carac- 
tere desenhado em ciano sobre fundo 
ciano. A rotina lg é chamada a seguir. 
Ela desenha uma coluna de blocos a par- 


tir da posição determinada por HL. A 
cor dos blocos é definida por A, enquan- 
to o tamanho da coluna é estabelecido 
por B. 

Quando o processador retorna da 
sub-rotina, a instrução ld bc,57264 co- 
loca em BC o endereço inicial do padrão 
do bloco usado para desenhar porções 
planas da encosta, O indicador guarda- 
do no endereço 57329 é colocado no 
acumulador e comparado ao número 1. 

Se o valor do indicador for diferente 
de | — ou seja, se a montanha for pla- 
na neste local —, a instrução jr nz,mp 
faz com que o processador salte em di- 
reção ao rótulo mp. Se o valor do indi- 
cador for 1, o nível da encosta deve 
diminuir. A instrução Id bc,(57329) mo- 
difica o conteúdo de BC, de modo que 
esse par de registros passe a conter o en- 
dereço inicial do padrão do bloco usa- 
do para desenhar porções inclinadas da 
montanha. Os padrões dos blocos das 
porções planas e inclinadas da monta- 
nha são obtidos na tabela de padrões 
criada pelo programa listado no último 
artigo. 

Quer a montanha seja plana ou in- 
clinada neste ponto do desenho, o pro- 
grama prossegue na rotina mp. 





A ROTINA mp 


Para desenhar os blocos que definem 
o perfil da encosta da montanha, deter- 
minando o limite entre o céu e a terra, 
o computador precisa de duas cores. As- 
sim, a instrução ld,a,d4 atribui aos ca- 
racteres a cor verde. A cor do fundo per- 
manece ciano. Em seguida, a sub-rotina 
print, listada no primeiro artigo da sé- 
rie Avalanche, é chamada para desenhar 
o bloco, 

As instruções contidas nas linhas 320 
e 330 colocam o valor da coordenada Y 
do perfil da encosta em B, com o auxi- 
lio do acumulador. Subtraindo esse va- 
lor de 23, obtém-se o número de blocos 
que devem ser desenhados abaixo do ho- 
rizonte, O número 23, correspondente 
às linhas da tela do Spectrum, foi colo- 
cado em A para permitir a subtração 
realizada pelo comando sub b. Esse co- 
mando deixa o resultado da subtração 
no registro A. A instrução ld b,a é utili- 
zada para trazer o resultado da subtra- 
ção de volta para B — a rotina lg exige 
que o número de blocos a serem dese- 
nhados esteja em B. Note que todas as 
24 linhas da tela do Spectrum são em- 
pregadas, incluindo as duas inferiores, 
normalmente reservadas para edição de 
linhas em BASIC. 

A instrução ld a,32 coloca em A o 
código de atributo correspondente a ca- 


ractere de cor verde sobre fundo igual- 
mente verde. Em seguida, o número 32 
é colocado em DE e somado ao endere- 
ço de impressão na tela, que está em 
HL. Esse par de registros passa, então, 
a apontar para a próxima posição na 
vertical. A rotina Ig é chamada a seguir 
para imprimir os blocos verdes abaixo 
do horizonte. 

A instrução pop bc recupera da pi- 
lha o contador de colunas. À instrução 
dijnz diminui seu valor em uma unida- 
de, retornando ao início do programa 
para imprimir uma nova coluna, en- 
quanto o contador não for zero. 





O PLACAR 


Precisamos reservar uma porção da 
tela para imprimir o score e o número 
de vidas que restam a Willie, Assim, na 
linha 430, 49 é colocado em HL, deter- 
minando a posição de impressão do pla- 
car. O número de caracteres impressos 
é colocado em B. A instrução ld a,41 co- 
loca em A o código de atributo corres- 
pondente a caractere azul sobre fundo 
ciano, 

Depois, a instrução ld ix,57973 colo- 
ca em IX o endereço do byte que será 
utilizado para armazenar o total de pon- 
tos obtidos pelo jogador. A rotina me, 
criada no primeiro artigo desta série, é, 
então, chamada. Ela traduz o score sob 
a forma de códigos ASCII, e o imprime 
na tela. 

A instrução seguinte chama a sub- 
rotina elb, que cuida dos níveis de difi- 
culdade do jogo, acrescentando os bu- 
racos e as cobras ao cenário. Essa roti- 
na ainda não foi publicada e, como vo- 
cê pode observar, seu rótulo correspon- 
de a um simples ret, no final da lista- 
gem. Por enquanto, o processador re- 
tornará imediatamente da rotina, sem 
nada executar. No momento apropria- 
do, o comando ret será apagado pela 
verdadeira rotina elb, 

Ao retornar da sub-rotina elb, o pro- 
cessador encontra uma nova instrução 
ret, que provoca um retorno ao interpre- 
tador BASIC. Quando o videogame es- 
tiver completo, a rotina de criação do 
cenário terá terminado e o processador 
retornará à rotina principal (responsá- 
vel pelo controle do jogo), que chama- 
rá as sub-rotinas seguintes. 





SCROLL HORIZONTAL 


O rótulo scl marca o início da rotina 
que executa um deslocamento horizon- 
tal do conteúdo da tela para a direita. 
Esse processo — chamado geralmente 











de SCROLL horizontal — permite que 
desenhemos o cenário, a partir da extre- 
midade esquerda do vídeo, enquanto a 
página de instruções vai sendo retirada 
da tela. 

A instrução ld hl,16384 coloca o en- 
dereço inicial da memória de vídeo em 
HL. A instrução seguinte coloca em B 
o número de linhas da memória de vi- 
deo e da tabela de atributos. O numero 
de colunas por linha é colocado em € 
pela instrução ld c,31. 

O apontador HL aumenta, então, em 
uma unidade, fazendo com que a instru- 
ção Id a,(hl) coloque no acumulador o 
conteúdo da segunda posição da tela. 
Em seguida, o conteúdo do par de re- 
gistros HL é diminuído em uma unida- 
de, voltando a apontar para a primeira 
posição da tela. A instrução ld (hl),a co- 
loca ali o padrão que antes ocupava a 
posição seguinte, 

O conteúdo do par HL é novamen- 
te aumentado, enquanto o conteúdo de 
C é diminuído. Se o registro € ainda 
não contém zero — ou seja, se o fim da 
linha não foi atingido —, a instrução jr 
nz,lpj retorna ao rótulo Ipj para deslo- 
car o conteúdo da coluna seguinte. 
Quando o fim da linha for alcançado, 
a instrução jr nz,lpj será ignorada e a 
instrução inc hl aumentará HL em uma 
unidade. 

A instrução djnz sempre utiliza o par 
de registros BC. Como C é igual a ze- 
ro quando se executa a linha 640 do pro- 
grama, essa instrução diminui o conteu- 
do de B em uma unidade e volta ao ró- 
tulo Ipi para deslocar uma nova linha, 
Depois que a última linha tiver sido des- 
locada para a direita, B conterá o valor 
0, e a instrução ret provocará o retorno 
da sub-rotina. 





A ROTINA Ig 


A primeira instrução dessa sub-rotina 
é push be, que guarda o contador de 
colunas na pilha. A instrução Id 
bc,15616 coloca em BC o endereço ini- 
cial da tabela da ROM em que estão 
contidos os padrões dos caracteres. O 
primeiro caractere ali representado é o 
espaço em branco. Assim, quando a li- 
nha 680 chamar a sub-rotina print, ela 
imprimirá um espaço de cor apropria- 
da na tela. A instrução seguinte coloca 
32 em DE. A instrução add hl,de, por 
sua vez, soma 32 ao conteúdo do par 
HL, de modo que ele aponte para o pró- 
ximo bloco da coluna. 

A instrução pop bc recupera o con- 


tador de colunas e a instrução djnz di-. 


minui seu valor em uma unidade, retor- 
nando ao rótudo lg a fim de imprimir 


mais um espaço em branco. O processo 
se repete até que o conteúdo de B seja 
reduzido a zero, indicando que o últi- 
mo bloco foi impresso. 

O salto para lg não será executado e 
a instrução ret fará com que o proces- 
sador retorne ao ponto de onde a sub- 
rotina foi chamada. 


pu A a 


A rotina Assembly listada a seguir cria 
e desloca na tela do TRS-Color o cená- 
rio de Avalanche. Ela difere das demais 
devido às limitações do uso de cores nes- 
se computador. Como a montanha é co- 
berta de relva e cercada pelo mar azul, 
não temos alternativa senão pintar o céu 
de amarelo. 


LO ORG 19109 
20 JSR MODE 
30 JSR GCLS 


40 LDX 45631 
50 LDY 417503 
60 LDB 432 

70 LOOP PBHS B 
Bo JSR SCROLL 
90 JSR PRINT 


100 PULS B 

110 DECB 

120 BNE LOOP 

130 LDY 417604 

140 LDX 41569 

150 JSR PRSUN 

160 ARTS 

170 MODE EQU 19182 
180 GCLS EQU 19161 
190 SCROLL EQU 19197 
200 PRINT EQU 19218 


Digite a rotina usando nosso programa 
Assembler. Grave o programa-fonte e de- 
pois monte-o. Grave também a rotina em 
código, usando o comando CSAVEM, A 
rotina não deve ser executada ainda, pois 
não funcionará sem os demais programas 
do artigo. 





DESLOCAMENTO DO CENÁRIO | 


Após termos definido o endereço ini- 
cial, precisamos colocar o computador 
no modo gráfico e selecionar o conjun- 
to de cores que vamos utilizar. Isso é fei- 
to pela sub-rotina MODE, chamada pe- 
lo comando JSR MODE na linha 20, A 
sub-rotina GCLS limpa a tela, 
colorindo-a de amarelo. 

A instrução LDX & 5631 coloca em X 
o endereço do extremo superior esquer- 
do da tela. Essa área será ocupada pelo 
último byte do contorno da montanha 
antes de se iniciar o deslocamento do ce- 
nário. A instrução LDY + 17503 colo- 
ca em Y o endereço inicial da tabela do 
perfil da encosta. LDB 32 coloca em 
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B o número de colunas da tela. A ins- 
trução PSHS B guarda o contador de 
colunas na pilha da máquina, liberan- 
do o registro B. 

A sub-rotina SCROLL é chamada 
para deslocar a coluna uma posição pa- 
ra a direita. Em seguida, a sub-rotina 
PRINT é chamada, imprimindo uma 
coluna de blocos verdes abaixo do ho- 
rizonte. A instrução PULS B, na linha 
100, recupera o contador de colunas da 
pilha da máquina. O contador é, então, 
diminuído em uma unidade por DEC B. 
A instrução BNE LOOP faz o proces- 
sador voltar à linha 70 para imprimir 
uma nova coluna, até que o conteúdo 
de B acabe se tornando zero. 

Quando isso ocorrer, o programa te- 
rá desenhado a última coluna, a instru- 
ção BNE LOOP será ignorada e o pro- 
grama continuará na linha 140. Ali o re- 
gistro Y recebe o endereço inicial do pa- 
drão do desenho do sol na tabela de blo- 
cos gráficos criada no artigo anterior. 
A linha seguinte coloca em X a posição 
do sol na tela gráfica. A instrução JSR 
PRSUN chama a sub-rotina que dese- 
nha o sol, 

Como de costume, RTS provoca o 
retorno da sub-rotina ao interpretador 
BASIC — ou, quando o jogo estiver 
completo, ao programa principal. 

Várias sub-rotinas chamadas não es- 
tão listadas no programa-fonte. Falsas 
instruções EQV informam seus endere- 
ços iniciais ao Assembler, para que ele 
possa calcular os saltos e desvios. 





O INEVITÁVEL AMARELO 


A rotina GCLS limpa a tela, 
colorindo-a totalmente de amarelo — 
cor do céu nesta versão do jogo. 


10 ORG 19161 

20 GCLS LDX 41536 
30 LDA 485 

40 GCLSI STA,X+ 
50 CMPX (17680 

60 BLO GCLSI 

TO RTS 


A rotina começa colocando em X o 
endereço inicial da tela — 1536. A ins- 
trução LDA & 85 coloca no acumulador 
o código da cor amarela. 

A instrução STA ,X + coloca o con- 
teúdo do acumulador no endereço apon- 
tado por X e aumenta o valor de X em 
uma unidade. A instrução CMPX 4 7680 
compara X com 7680, primeiro byte aci- 
ma do final da tela. A instrução BLO 
GOLSI retorna à linha 40 para colorir a 
próxima posição de tela, enquanto o fi- 
nal da memória de vídeo não tiver sido 
alcançado por X — ou seja, enquanto X 











for menor que 7680. Quando isso acon- 
tece, a instrução RTS faz com que o pro- 
cessador volte ao ponto de onde a rotina 
foi chamada. 





MODO GRÁFICO 


As quatro sub-rotinas seguintes po- 
dem ser montadas juntas, pois ocupam 
posições consecutivas na memória. 

Para modificar o modo gráfico do 
TRS-Color temos que nos comunicar 
com dois circuitos integrados especiais 
que controlam o video. Esses chips são 
o Gerador de Vídeo ou VDG (Video 
Display Generator) e o Multiplexador 
Ssincrono de Endereços ou SAM 
(Synchronous Address Multiplexor). 

Na linha 20, o valor 229 é colocado 
no acumulador. A seguir, a instrução 
STA 65314 coloca o mesmo valor no en- 
dereço FF22. Essa posição da memória 
controla a saida de dados para o VDG 
e outros periféricos. Cada bit desse byte 
tem uma função diferente. 

Na linha 30, o número 229 — 
11100101 — estabelece as linhas de co- 
municação. O *''1”º no bit sete determi- 
na o modo gráfico; 0" seria o modo 
de texto. Os bits seis e cinco, valendo 
“1”, definem o modo gráfico P3. O bit 
três seleciona as cores — aqui, “0'' dá 
verde, vermelho, amarelo e azul. 

Os bits dois, um e zero não se refe- 
rem ao VDG. Eles controlam o tama- 
nho da memória RAM, a produção de 
sons e a saida para a impressora, respec- 
tivamente. Sua conformação usual é 
101. Por isso, quando for modificar o 
conteúdo desse byte, coloque 101 nos 
três primeiros bits, a menos que haja al- 
guma razão para não fazê-lo. 

Quando alteramos as linhas de comu- 
nicação com o VDG, devemos fazer 
também algumas alterações nos bytes 
que se referem ao SAM. Esse chip tem 
um registro de dezesseis bits que corres- 
ponde às posições de memória que vão 
de FFCO a FFDF — intervalo que con- 
tém 32 bytes. Cada bit do registro exis- 
tente nessas posições é ativado quando 
colocamos um valor nos bytes ímpares 
correspondentes, e apagado quando fa- 
zemos o mesmo nos bytes pares. O va- 
lor colocado nos bytes e no registro do 
VDG deve ser o mesmo. Os bits ativa- 
dos pelas linhas 40 a 60 do programa- 
fonte informam ao SAM que a memó- 
ria de vídeo começa no endereço 1536. 


10 ORG 19182 
20 MODE LDA 4229 
30 STA 65314 

40 STA 65475 
50 STA 65477 





60 STA 65479 
70 RTS 


SCROLL HORIZONTAL 





O rótulo SCROLL marca o início da 
rotina que executa um deslocamento ho- 
rizontal do conteúdo da tela para a di- 
reita. Esse processo — chamado geral- 
mente de SCROLL horizontal — permi- 
te que desenhemos o cenário a partir da 
extremidade esquerda do vídeo. 
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10 SCROLL PSHS X,Y | 
20 LDX 41536 
30 LDY 41537 


40 SCRO LDA ,Y+ 
50 STA ,X+ 

60 CMPX 47679 
70 BLO SCRO 

80 PULS Y,X 

90 RTS 


Essa rotina precisa utilizar os regis- 
tros X e Y, mas números muito impor- 
tantes foram guardados ali por outras 












rotinas. Assim, a primeira providência 
do programa, na linha 10, é guardar es- 
sés valores na pilha da máquina, com a 
instrução PSHS X,Y. 

As linhas 20 e 30 colocam em X e Y 
os endereços da primeira e da segunda 
posições da tela, respectivamente. A ins- 
trução LDA ,Y + coloca em A o con- 
teúdo da posição apontada por Y,e Y 
aumenta em uma unidade. 

A instrução STA ,X + coloca o con- 
teúdo de A na posição apontada por X, 
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e X aumenta em uma unidade. Portan- 
to, na primeira passagem do processa- 
dor, as linhas 40 e 50 colocam o conteú- 
do da segunda posição da tela dentro da 
primeira posição, atualizando ainda os 
valores dos dois apontadores. 

A instrução CMPX 4% 7679 compara 
o conteúdo de X com o último endere- 
ço da memória de vídeo. Enquanto X 
contiver um valor inferior, a instrução 
BLO SCROLL envia o processador de 
volta à linha 10 para deslocar mais uma 
posição de memória para a esquerda. 

A rotina não só desloca todo o con- 
teúdo da tela uma posição para a esquer- 
da como também coloca o que havia na 
última coluna da esquerda para a últi- 
ma coluna da direita, uma linha acima. 
Isso não tem importância, já que a últi- 
ma coluna da direita será apagada pe- 
los blocos que desenham o cenário. 

Quando o conteúdo da última posi- 
ção da memória de vídeo for deslocado 
para a esquerda, o conteúdo original dos 
registros X e Y será recuperado da pi- 
lha pelo comando PULS Y,X. A instru- 
ção RTS da linha 90 provocará o retor- 
no da sub-rotina. 


NOVO CENÁRIO 





Os blocos gráficos que compõem o 
cenário preenchem a última coluna da 
direita, à medida que o conteúdo da te- 
la vai sendo deslocado para a esquerda, 
A rotina responsável por esse processo 
é a seguinte: 


10 PRINT PSHS X 
20 LDA ,Y+ 
30 SUBA 433 
40 BNE PRZ 


50 PULS X 

60 LEAX -256,X 
70 PSHS 

BO LDY 417536 
90 LDB 48 


100 PRI LDA ,Y+ 
110 STA ,X 
120 LEAX 32,X 


130 DECB 
140 BNE PRI 
150 PULS Y 


160 PRZ CLR ,X 
170 LEAX 32,X 
180 CMPX 47680 
190 BLC PRZ 
200 PULS X 


Desta vez a rotina usará o valor con- 
tido no apontador Y. Se estivermos de- 
senhando uma porção inclinada da 
montanha, poderá ser necessário modi- 
ficar a altura do horizonte contida no 
registro X. Mas, por enquanto, a instru- 
ção PSH X guarda o conteúdo de X na 
pilha da máquina. 





A instrução LDA ,Y + coloca em A 
o conteúdo do endereço indicado por Y 
e o apontador aumenta em uma unida- 
de. A seguir, a instrução SUBA 33 
subtrai 33 unidades de A. 

O número 33 é o código ASCII do 
ponto de exclamação e, na tabela cria- 
da pelo programa do artigo anterior, 
significa que a encosta é inclinada na- 
quela posição: Se este não for o caso, 
a subtração não resulta em zero, o que 
faz a instrução BNE PRZ provocar um 
salto para a linha 160. Se A contiver o 
valor 33, indicando inclinação da encos- 
ta, a instrução BNE é ignorada e o pro- 
grama continua, 

A instrução PULS X recupera da pi- 
lha a altura do horizonte, e a instrução 
seguinte subtrai 256 unidades de X. O 
número 256 éiguala 8 x 32 — o apon- 
tador X subiu, assim, oito linhas (ou um 
bloco) na tela. O novo valor de X é re- 
colocado na pilha da máquina para ser 
usado no desenho da coluna seguinte. 
O valor do apontador Y — que aponta 
para a tabela de contorno da montanha 
— também é guardado na pilha. 

A instrução LDY & 17536 coloca em 
Y o endereço inicial do padrão do bloco 
de uma porção inclinada da montanha. 
O bloco é desenhado na posição aponta- 
da por X. Neste modo gráfico os pontos 
são criados em grupos de dois, com base 
no valor de dois bits. Dois bits podem ter 
quatro valores diferentes, um para cada 
cor. A organização da memória de vi- 
deo foi explicada no artigo da página 86. 

A instrução DECB diminui o conteú- 
do do contador B em uma unidade e, en- 
quanto esse contador não tiver sido re- 
duzido a zero, a instrução BNE PRI fa- 
rá com que o processador volte à linha 
100 para desenhar a próxima linha, 
Quando B contiver zero, a última linha 
terá sido desenhada. 

Em seguida, a instrução PULS Y re- 
cupera da pilha o apontador da tabela 
de contorno da montanha. O programa 
continua na linha rotulada PRZ. Esta 
é a rotina para a qual o programa salta- 
ria se a montanha fosse plana neste pon- 
to (veja linha 40). Sua função é desenhar 
uma coluna de blocos verdes, recobrin- 
do parte da montanha, 


“COMO FUNCIONA 





A instrução CLR ,X limpa o conteu- 
do do endereço apontado por X. Lim- 
par — ou seja, tornar igual a zero — O 
conteúdo de uma posição de memória 
equivale, no caso, a pintar aquela posi- 
ção com a cor verde. A instrução LEAX 
32,X soma 32 ao apontador X, fazendo- 
o descer uma linha na tela. 
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A instrução CMPX * 7680 verifica 
se o apontador ultrapassou o final da 
memória de vídeo. Enquanto isso não 
ocorrer, a instrução BLO PRZ fará o 
processador voltar ao rótulo PRZ para 
desenhar mais uma linha de oito ponti- 
nhos verdes. Ao se completar a coluna 
de blocos verdes, a instrução PULS X 
recupera da pilha o valor da altura do 
horizonte. A instrução RTS marca o fi- 
nal da sub-rotina. 


E O SOL É 


Os dados necessários ao desenho do 
sol (padrões e posições na tela) se encon- 
tram na tabela criada no artigo anterior. 
Esses dados são utilizados pela rotina 
Assembly listada a seguir, que preenche 
um espaço de 32 por 30 pontos no céu. 


10 PRSUN LDB 430 
20  PRSUNI PSHS B 
30 LDB 44 

40  PRSUNZ LDA ,Y+ 
50 STA ,X+ 

60 DECB 

70 BNE PRSUNZ 

BO LEAX 28,X 

90 PULCS B 


100 DECB 
110 BNE PRSUNI 
120 RTS 


A instrução LDB 430 coloca no con- 
tador B o número de linhas que serão 
preenchidas para desenhar o sol. De- 
pois, a instrução PULS B guarda o con- 
tador na pilha da máquina. A linha se- 
guinte coloca o número 4 no registro B, 
definindo em quatro bytes — ou 4 x 8 
= 32 bits — a largura do desenho. Mes- 
mo que quiséssemos desenhar um sol 
com 30 x 30 pontos, precisaríamos de 
um quadriculado de 32 x 30 pontos — 
usaríiamos, no caso, quatro bytes, dei- 
xando duas colunas com a cor de fundo. 

Como de costume, a instrução LDA 
XY + obtém o padrão de uma parte dos 
desenhos no endereço apontado por Y, 
colocando-o em A e aumentando em 
uma unidade o apontador. A instrução 
STA ,X + coloca esse padrão na tela, na 
posição apontada por X, aumentando 
também em uma unidade o valor desse 
apontador. A instrução DECB diminui 
o valor do contador e, enquanto B não 
for zero, a instrução BNE PRSUNZ re- 
torna à linha 40, fazendo com que qua- 
tro bytes sejam colocados na tela. 

Quando o último byte da linha tiver 
sido desenhado, a instrução LEAX 28,X 
soma 28 ao conteúdo de X, de modo que 
ele aponte para o início da próxima li- 
nha. O contador de linhas é recuperado 
da pilha por PULS B e diminuído em 


uma unidade por DECB. Enquanto as 
trinta colunas não tiverem sido desenha- 
das, a instrução BNE PRSUNI faz com 
que o processador volte à linha 20, re- 
petindo o processo. 

Se a última linha foi traçada, B 
reduz-se a zero, a instrução da linha 110 
é ignorada e o programa encontra a ins- 
trução RTS, que provoca o retorno da 
sub-rotina. 


+! RE ES 


Quando escrevemos a página de ins- 
truções, a tela estava no modo texto de 
quarenta colunas, totalmente inadequa- 
do para o cenário de um jogo de ação. 
A rotina Assembly a seguir seleciona o 
modo gráfico de alta resolução. 

10 org -12144 


20 ld h1,62441 
30 ld (h1l),4 


40 inc hl 
50 ld (hl),7 
bo inc hl 


70 ld (h1l),7 
BO call 114 


100 ld (62432),a 
110 call 105 

120 ret 

130 end 


Para selecionar as cores da tela, é pre- 
ciso modificar o conteúdo de algumas 
posições da RAM, nas quais o sistema 
armazena valores usados no controle 
das diversas operações do micro. 

A instrução que se segue à definição 
do endereço inicial coloca em HL o en- 
dereço do byte que determina a cor de 
frente usada na tela. Depois, a instru- 
ção ld (hl),4 utiliza o endereçamento in- 
direto para colocar ali o código da cor 
azul-escuro. 

O par HL, usado como apontador, 
tem seu conteúdo aumentado em uma 
unidade pela instrução inc hl, passando 
a apontar para o próximo endereço, que 
determina a cor de fundo da tela. Esse 
byte recebe o valor 7, que é o código da 
cor ciano. Duas outras instruções colo- 
cam o mesmo código na posição seguin- 
te, que determina qual será a cor da mol- 
dura da tela. 

A instrução call 114 é responsável pe- 
la modificação das cores e do modo de 
exibição da tela. Ela chama uma sub- 
rotina do sistema, que coloca o compu- 
tador no modo gráfico de alta resolu- 
ção. Essa rotina equivale a um coman- 
do SCREEN 2,0, ou seja, ela não somen- 
te coloca o computador no modo gráfi- 
co como também limpa a tela, preenche 
as tabelas da VRAM com seu conteúdo 
padrão e, ainda, acerta os conteúdos do 


VDP (Video Display Processor), chip de 
imagem do MSX. 

A rotina chamada na linha 80, con- 
tudo, preparou o VDP para exibir spri- 
tes pequenos (8 x 8 pontos), quando 
nós precisamos de sprites grandes (16 x 
16 pontos). Para fazer os acertos neces- 
sários, teremos que modificar o conteú- 
do de um dos registros do VDP. Estes 
podem ser alterados através das posições 
de memória que vão de 62431 a 62438 
— O que corresponde a oito registros de 
oito bits. As funções de cada registro do 
VDP serão comentadas em outro arti- 
go. Por hora, Interessa-nos apenas o re- 
gistro 1, que modificaremos através do 
endereço 62432. 

As instruções das linhas 90 e 100 da 
listagem colocam nesse registro o valor 
226. Note que o uso do acumulador é 
temporário, justificando-se pela inexis- 
tência de uma instrução que coloque 
um número diretamente em uma posi- 
ção de memória. Não há uma instru- 
ção Id (62432),226. 

Cada bit do registo | do VDP tem 
uma função. O bit 7 indica o tamanho 
da VRAM utilizada, o bit 6 liga e desli- 
ga a tela, o bit 5 seleciona o modo de 
interrupção, os bits 3 e 4 determinam o 
tipo de tela (dois bits nos dão quatro op- 
ções: telas 0, 1,2 e 3),0 bit 2 não é uti- 
lizado, o bit 1 controla o tamanho lógi- 
co do sprite (8 x 8ou 16 x 16 pontos) 
e o bit O, finalmente, controla o tama- 
nho físico do sprite (normal ou amplia- 
do). Assim, como 226 é 1110010 em 
sistema binário, quando colocado no re- 
gistro 1, ele determina uma VRAM de 
dezesseis Kbytes, tela ligada, com pos- 
sibilidade de interrupção, modo gráfi- 
co de alta resolução e sprites grandes 
não ampliados. 

A sub-rotina chamada na linha 80 
preencheu a tabela de atributos de spri- 
tes (veja o artigo da página 808) com no- 
mes compatíveis com sprites pequenos, 
A instrução call 105 chama, então, ou- 
tra sub-rotina da ROM, que preenche a 
mesma tabela com valores compatíveis 
com sprites de 16 x 16 pontos. Na rea- 
lidade, essa sub-rotina preenche a tabe- 
la de atributos com seu conteúdo pa- 
drão, conforme os valores dos registros 
do VDP, Depois disso, nossa rotina ter- 
mina com a instrução ret. 





TABELA DE PADRÕES 


A tela de alta resolução dos micro- 
computadores da linha MSX é organi- 
zada em cinco tabelas: nomes, padrões, 
cores, atributos de sprites e padrões de 
sprites. Os efeitos visuais do videogame 
são criados por intermédio da modifi- 











cação dos valores contidos nessas 
tabelas. 

A rotina listada a seguir transfere pa- 
ra a tabela de padrões os blocos gráfi- 
cos criados pelo programa BASIC do 
artigo anterior. Como os mesmos blo- 
cos são transferidos para a tabela de pa- 
drões de sprites, podemos utilizar as fi- 
guras que criamos tanto na forma de 
blocos gráficos como na forma de spri- 
tes. Observe que o programa exige que 
o banco de blocos anteriormente cria- 
do esteja na memória. 


10 org -12121 

20 ld de, (62411) 
30 ld h1,-15100 
40 ld bc,640 

50 puash bc 

60 push hl 

70 push de 

BO call 92 

90 pop de 


100 ld h1,2048 
110 add hl,de 
120 ld d,h 

130 ld e,l 

140 pop hl 

150 pop bc 

160 push bc 
170 push hi 
180 push de 
190 call 92 
200 pop de 

210 ld h1,2048 
220 add hl,de 
230 ld d,h 





240 ld e,l 
250 pop hl 
260 pop bc 
270 push bc 
280 push hi 
290 cali 92 
300 ld de, (62415) 
310 pop hl 
320 pop bc 
330 call 92 
340 ret 

350 end 


Para transferir os padrões da RAM 
para a VRAM, utilizamos a sub-rotina 
da ROM que fica no endereço 92. Usa- 
mos a mesma sub-rotina para criar a pá- 
gina inicial e escrever as instruções. 

A instrução ld de,(62411) coloca em 
DE o endereço inicial da tabela de pa- 
drões. Esse endereço fica armazenado 
nos bytes 62411 e 62412 e equivale a BA- 
SE(12). Note que a instrução transfere 
dezesseis bits, ou seja, um par de bytes 
para um par de registros. O registro E 
recebe o conteúdo de 62411, byte menos 
significativo. D recebe o byte mais sig- 
nificativo, 62412. 

A instrução seguinte coloca em HL 
o endereço inicial do banco de blocos 
que criamos na memória. O número de 
bytes a serem transferidos para a VRAM 
é colocado em BC por Id bc,700. 

A sub-rotina que começa no endere- 
ço 92 baseia-se no conteúdo dos regis- 
tros DE, HL e BC para efetuar a trans- 











ferência. DE deve conter o endereço ini- 
cial da porção da VRAM a ser modifi- 


cada; HL, o endereço inicial da porção 


da RAM que vai ser transferida; e BC, 
o número de bytes. Como a sub-rotina 
altera o conteúdo desses mesmos regis- 
tros no decorrer de seu funcionamento, 
eles são guardados na pilha, para even- 
tual uso futuro. As instruções push bc, 
push hl e push de tratam disso, antes que 
call 92 mande o processador executar a 
sub-rotina. 

A tela de nomes da tela de alta reso- 
lução é dividida em três porções, cada 
uma representando os padrões contidos 
no terço correspondente da tabela de pa- 
drões. Como usaremos toda a tela, pre- 
cisaremos ter três cópias do banco de 
blocos na tabela de padrões. 

Para fazer a segunda cópia, o ende- 
reço inicial da tabela de padrões é recu- 
perado como pop de. O par HL recebe, 
então, o valor 2048, que corresponde à 
posição inicial do segundo terço da ta- 
bela de padrões. Esse valor é somado ao 
endereço inicial da tabela, para obter- 
mos o endereço inicial do terço médio 
na VRAM. A instrução que faz esta so- 
ma — add hl,de — deixa o resultado da 
operação em HL. 

Precisamos do endereço inicial em 
DE. Como não existem as instruções 
add de,hl e Id de,hl, para transferir o re- 
sultado para o par HL utilizamos duas 
instruções: Id d,h e Id e,1. 

O endereço inicial do banco de blo- 
cos na RAM é recuperado da pilha com 
pop hl e o número de bytes a serem 
transferidos para a VRAM, como pop 
be. Observe que a ordem de recupera- 
ção dos pares de registro da pilha é a 
mesma de sua colocação. Os registros 
são guardados na pilha novamente, an- 
tes que call 92 volte a transferir o ban- 
co de blocos para a VRAM. 

Obtém-se a terceira cópia do banco 
de blocos de maneira muito parecida. O 
endereço inicial do terço médio é recu- 
perado e somado a 2048, resultando no 
endereço correspondente ao terço infe- 
rior. HL e BC são recuperados da pilha 
e a rotina da memória ROM é executa- 
da novamente. Desta vez, somente BC 
e HL são guardados na pilha. 

Uma quarta cópia do banco de blo- 
cos deve ser feita na tabela de padrões 
de sprites. O endereço inicial da tabela 
é armazenado nos endereços 62415 e 
62416. A instrução ld de,(62415) trans- 
fere esses dois bytes para DE, como foi 
explicado anteriormente. 

As instruções pop hl e pop bc recu- 
peram da pilha o endereço inicial e o ta- 
manho do banco. A cópia é feita com 
call 92. A rotina termina com uma ins- 
trução ret. 














A TABELA DE CORES 


Se não colocarmos valores adequados 
na tabela de cores, nenhum bloco grá- 
fico será mostrado no vídeo. Um novo 
programa BASIC, que coloca os códi- 
gos de cores no topo da memória, está 
listado no final do artigo. Os valores são 
transferidos para a tabela de cores da te- 
la gráfica por esta rotina: 


10 org -12066 

20 ld de, (62409) 
30 ld h1,-16100 
40 ld bc,672 

50 puash bc 

60 push hl 

70 push de 

BO call 92 

90 pop de 


100 ld h1,2048 
110 add hl,de 
120 ld d,h 

130 ld e,l 

140 pop hl 

150 pop bc 

160 push bc 
170 push hl 
180 push de 
190 call 92 
200 pop de 

210 ld h1,2048 
220 add hl,de 
230 ld d,h 

240 ld e,l 

250 pop hl 

260 pop bc 

270 call 92 
280 ret 

290 end 


Essa rotina é bem parecida com a an- 
terior. Ela começa colocando em DE o 
endereço inicial da tabela de cores, ar- 
mazenado nos endereços 62409 e 62410. 
HL recebe o endereço inicial da lista de 
códigos de cores que será criada pelo 
programa BASIC no final do artigo. BC 
recebe o número de bytes a serem trans- 
feridos. Os conteúdos desses três pares 
de registros são guardados na pilha e a 
rotina do endereço 92 é chamada no- 
vamente. 

Utiliza-se o mesmo processo explica- 
do anteriormente para a .obtenção de 
três cópias do banco de cores — cada 
uma correspondendo a um terço do vi- 
deo. Sprites serão coloridos no momen- 
to em que surgirem no video. 


SCROLL HORIZONTAL 





Para realizar o deslocamento da tela 
para a direita, usaremos um processo 
muito semelhante ao que foi descrito no 
artigo da página 213. 

As três rotinas listadas abaixo reali- 


zam o processo da translação do conteú- 
do da tela gráfica: 


10 org -12022 
20 ld h1, (62407) 
30 ld de,-6000 
40 ld bc,768 

50 call 89 

60 ret 

70 org -12009 
Bo ld de,-5233 
90 ld h1,-5234 


100 ld b,24 

110 loop push bc 
120 ld a, (de) 
130 ld bc,3l 

140 lIddr 

150 ld (de),a 
160 dec hl 

170 dec de 

180 pop bc 

190 djnz loop 
200 ret 

210 org -11987 
220 ld de, (62407) 
230 ld h1,-6000 
240 ld bc,768 
250 call 92 

260 ret 

270 end 


A primeira rotina transfere o conteu- 
do da tabela de nomes da tela de alta re- 
solução para um buffer localizado no 
topo da memória. 

O endereço inicial dessa tabela na 
VRAM fica guardado nos bytes 62407 
e 62408 da RAM. A instrução da linha 
20 do programa coloca esse valor no par 
de registros HL. O endereço inicial do 
buffer é colocado em DE por ld 
de,-6000. O número de bytes a serem 
transferidos vai para o par de registros 
BC. A instrução call 89 chama, então, 
a sub-rotina da ROM que transfere nú- 
meros da VRAM para a RAM, 

A segunda sub-rotina, que começa na 
linha 70, promove o deslocamento do 
conteúdo do buffer para a direita. 

Os endereços dos dois últimos bytes 
do buffer são colocados em DE e HL. 
O número de linhas da tela vai para B. 
Como BC será utilizado adiante, a ins- 
trução push bc armazena o contador de 
linhas na pilha. 

O conteúdo da última posição da te- 
la é guardado no acumulador por Id 
a,(de). O par BC recebe o número de co- 
lunas de uma linha — 31. A instrução 
Iddr coloca no endereço apontado por 
DE o conteúdo do endereço apontado 
por HL e subtrai uma unidade de cada 
um dos apontadores e do contador BC. 
O processo é repetido automaticamen- 
te até que BC seja zero. A instrução da 
linha 140 desloca, assim, toda uma li- 
nha de blocos para a direita. 

O conteúdo da última posição da li- 
nha é colocado na primeira posição, 





agora apontada por DE. As instruções 
dec hl e dec de fazem com que esses re- 
gistros apontem para as duas últimas 
posições da próxima linha a ser deslo- 
cada. No nosso caso, ela fica imediata- 
mente acima da primeira. 

O contador de linhas é recuperado da 
pilha e djnz repete o laço loop até que 
todas as 24 linhas de blocos gráficos que 
compõem o buffer tenham sido des- 
locadas, 

A ultima rotina, que começa na linha 
210, transfere o conteúdo do buffer de 
volta para a tabela de nomes. Suas ins- 
truções são parecidas com as da rotina 
da linha 10, só que DE recebe o endere- 
ço da tabela na VRAM e HL recebe o 
endereço do buffer. A rotina chamada 
fica no endereço 92 da ROM. 


A ROTINA PRINCIPAL 





Para desenhar a montanha que Wil- 
lie deve escalar, o programa usa a se- 
guinte rotina: 


10 org 53563 

20 ld a,255 

30 ld h1, (62407) 
40 ld bc,768 

50 call B6 


60 call -12121 
70 call -12066 
BO call -12022 
90 ld a,8B 

100 ld (-5230),a 
LIQ ld a,0 

120 ld (-5229),a 
130 ld h1,-6001 
140 1d: Brdd 

L5O mpi push be 
L60 push hl 

170 call -11987 
180 call -12009 
190 pop hl 

200 ld. a, 45229) 
210 cp 1 

220 3r nz, tq 

230 ld a, (-5230) 
240 1nc a 

250 ld (-5230),a 
260 ta ld a,0 
270 ld (-5229),a 
280 ld a, (hl) 
290 dec hl 

300 push hl 

310 cp 33 

320 3r nz,1v 

330 ld a,l 

340 ld (-5229),a 
350 Iv id à, (-5230) 
360 ld b,a 

370 ld h1,-6000 
380 ld a,255 

390 cali lg 

400 ld b,4B 

410 ld a, (-5229) 
420 cp 

430 yr nz,no 











440 ld b,52 
450 no ld a,b 
460 ld (hl),a 
470 ld a, (-5230) 
480 ld b,a 
490 ld a,23 
500 sub Db 

510 ld b,a 
520 ld a,81 
530 ld de,32 
540 add hl,de 
550 call lg 
560 pop hl 
570 pop bc 
580 dinz mpi 
590 ret 

600 lo ld (hl),a 
610 ld de,32 
620 add hl,de 
630 dinz lg 
640 ret 

65o end 


A tabela de nomes será utilizada pa- 
ra representar blocos gráficos. Estes de- 
vem estar devidamente representados 
nas tabelas de padrões e de cores. Para 
entender o funcionamento das rotinas 
gráficas é necessário conhecer a organi- 
zação da VRAM. 

A primeira coisa que a rotina princi- 
pal faz é preencher a tabela de nomes 
com o número 255. Isso equivale a en- 
cher a tela com o bloco gráfico de códi- 
go 255, que, no nosso caso, é um bloco 
ciano. O acumulador recebe o código do 
bloco, 255. A instrução ld h1,(62407) co- 
loca o endereço inicial da tabela de no- 
mes em HL. BC recebe o número de 
bytes da tabela — 768. 

A rotina da memória ROM chama- 
da por call 86 preenche com o conteú- 
do de A uma porção da VRAM. O par 
de registros HL aponta o endereço ini- 
cial da porção e o par BC, o número de 
bytes que sofrerão alterações. 

A linha 60 chama a sub-rotina que 
gera os padrões dos bytes, e a 70, a sub- 
rotina que cuida da tabela de cores. A 
sub-rotina do endereço — 12022 coloca 
o conteúdo da tabela de nomes no buf- 
fer de deslocamento. 

As linhas 90 e 100 colocam no ende- 
reço -5230 o número da linha em que co- 
locaremos o horizonte. O endereço 
-5229 recebe o valor zero. Esse byte ser- 
virá de indicador de inclinação da mon- 
tanha. Se valer zero, ela será plana; se 
valer um, será inclinada. 

O par HL recebe o último valor da 
tabela de perfil da encosta. Essa tabela 
será gerada por um programa BASIC 
listado no final do artigo. O perfil é de- 
finido por meio de códigos que indicam 
sea montanha é plana ou inclinada num 
determinado local. 

Na linha 140, B recebe o número de 
colunas, que é logo colocado na pilha 


para liberar o uso desse registro. As li- 
nhas 170 e 180 chamam as rotinas que 
copiam o buffer na tabela de nomes e 
realizam o deslocamento. 

As linhas 200 a 250 verificam se o In- 
dicador de inclinação, no endereço 
-5229, foi modificado anteriormente. 
Quando isso acontecer, a linha do hori- 
zonte deve ser alterada no endereço 
-5230, o que é feito pelas linhas 230 a 
250. A seguir, o indicador recebe nova- 
mente O valor zero. 

A instrução Id a,(hl) coloca em A o 
valor da tabela de perfil da encosta 
apontado por HL. Em seguida, esse par 
de registros é diminuído em uma unida- 
de e guardado na pilha, 

O conteúdo de A é comparado a 33 
— valor que indica região inclinada. Se 
A tiver outro valor, a instrução jr nz,lv 
salta para o rótulo Iv. Caso contrário, 
as linhas 330 e 340 colocam o numero 
| no indicador de inclinação. 


A ROTINA lv 





As instruções das linhas 350 e 360 co- 
locam em B o número da linha do hori- 
zonte. Isso é feito com o auxilio do acu- 
mulador, já que não existe uma instru- 
ção que coloque o conteúdo de um en- 
dereço diretamente em B. HL recebe o 
endereço inicial do buffer, que corres- 
ponde ao topo da primeira coluna da te- 
la. A instrução Id 4,255 coloca o códi- 
go do bloco ciano no acumulador. Esse 
bloco será usado para desenhar o céu. 
A rotina lg desenha uma coluna de blo- 
cos ciano. 

A instrução Id b,48 coloca em B o 
código do bloco que representa uma 
porção plana da montanha. As duas 
linhas seguintes verificam o conteúdo do 
indicador de inclinação. Se a encosta for 
plana nessa coluna, a instrução jr nz,no 
desvia o programa para o rótulo no. 
Se for inclinada, B recebe o código do 
bloco adequado e a rotina passa ao 
rótulo no. 


A ROTINA no 


As linhas 450 e 460 colocam o bloco 
adequado na posição apontada pelo par 
de registros HL. As duas linhas que se 
seguem colocam em B o número da li- 
nha do horizonte. O registro A recebe 
o número de linhas da tela e a instrução 
da linha 500 subtrai o número da linha 
de horizonte desse valor. Calcula-se, as- 
sim, o número de blocos que devem ser 
colocados abaixo da linha de horizonte 
nesta coluna. 

O resultado da operação fica em A; 


a instrução ld b,a transfere-o para B. A 
instrução ld a,81 coloca em A o código 
do caractere verde, que preenche a en- 
costa. O par de registros DE recebe o 
número 32 e add hl,de soma esse valor 
ao conteúdo de HL, para que este apon- 
te para a linha seguinte. A rotina lg é 
chamada novamente para desenhar uma 
coluna de blocos. 

Para finalizar, a posição do aponta- 
dor da tabela de perfil da encosta da 
montanha é recuperado da pilha por 
pop hi. O contador de colunas também 
sai da pilha com pop bc. A instrução 
djnz repete o processo até que as 32 co- 
lunas do desenho tenham sido traçadas 
e deslocadas na tela. 


| ROTINA Ig 


Essa rotina desenha uma coluna de 
blocos. O código do bloco deve estar no 
acumulador; o endereço inicial da colu- 
na no buffer deve estar em HL; o nú- 
mero de linhas, em B. 

A linha 600 coloca o código do blo- 
co gráfico no endereço dado por HL. 
DE recebe o número 32, que é logo so- 
mado ao conteúdo de HL. A instrução 
djnz repete o processo de acordo com 


o conteúdo de B. 





AS TABELAS 


Este programa cria a tabela de cores 
na RAM: 
5 CLEAR 200,-16100 
10 FOR I=0 TO 20 
20 READ A 
30 FOR J=0 To 31 
40 POKE -16100+1*32+J,A 
50 NEXT J,I 
100 DATA 23,23,23,103,103,247,2 
47,23,23,199,199,199,55,55,167, 
135,215,151,244,244,51 


A tabela criada tem 672 bytes. Cada 
valor na linha DATA 100 corresponde 
a um código de cor, que é repetido 32 
vezes, uma para cada linha do bloco 
gráfico. 

O programa a seguir cria a tabela do 
perfil da encosta: 


10 FOR 1I=0 TO 31 

20 READ A:POKE -6032+I,A 

30 NEXT 

100 DATA 33,33,35,35,33,35,35,3 
5,39, 35,95, 33,359,93,95,35,35,935 
BID SI ID ID DD ED E DD DD TS 
33,35,35,35 


Cada valor da linha DATA 100 cor- 
responde a uma coluna do desenho. Um 
número 33 significa porção inclinada, e. 
um 35, porção plana. 

















UMA AGENDA 











Com nosso programa para calendário 
e agenda, você poderá planejar seus 
compromissos diários e manter um 
registro de datas especiais. Aproveite 
a oportunidade e organize-se! 


Você é daquele tipo de pessoa que 
sempre se esquece do aniversário da es- 
posa ou só se lembra da hora marcada 
no dentista quando já é tarde demais? 
Ou, ainda, que se assusta ao descobrir 
que uma conta de luz está vencida hã 
mais de um mês? 

O programa que apresentamos neste 
artigo cuidará de todos os seus compro- 
missos. Com ele, você não terá mais des- 
culpas para faltar a encontros ou deixar 
de pagar suas contas na data certa. Ten- 
do uma impressora, você poderá, inclu- 
sive, fazer uma cópia da agenda em pa- 
pel, para consultá-la sempre que estiver 
longe do computador. 


CALENDÁRIO AUTOMÁTICO 





Este programa coloca à sua disposi- 
ção um calendário ou uma agenda. A 
primeira opção é a mais simples: mos- 
tra um calendário para qualquer mês 
dos anos de 1753 a 29999. A apresenta- 
ção do calendário é a usual, com os dias 
da semana no topo e os dias do mês 
abaixo. O programa leva em considera- 
ção, automaticamente, os anos bissex- 
tos, e indica a data do domingo de Pas- 
coa no mês correspondente. 

possível, ainda, imprimir um calen- 
dário para o ano todo — alternativa es- 
pecialmente útil se você pretende colocá- 
lo em sua escrivaninha ou pendurá-lo 
na parede. 


A AGENDA ELETRÔNICA 





Nossa agenda permitirá que você or- 
ganize melhor seu dia-a-dia, mantendo 
um registro de todos os seus compromis- 
sos. As entradas são feitas sob quatro 
títulos — Finanças, Encontros, Celebra- 
ções e Feriados —, o que torna mais fá- 
cil encontrar um determinado tipo de in- 
formação. 


ELETRÔNICA (1) 





É muito simples dar entrada à infor- 
mação e, como vantagem adicional, o 
programa requer um único registro dos 
eventos regulares. Assim, aniversários e 
contas a pagar podem ser anotados uma 
só vez, no dia correto, em todos os me- 
ses ou anos subsequentes. Quando se di- 
gita um dado de Finanças, por exemplo, 
o programa pergunta se o evento é úni- 
co (apenas para aquela data específica), 
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mensal, trimestral ou anual, Se você es- 
tá entrando dados sobre um pagamen- 
to mensal, apenas digite M para men- 
sal, em seguida o nome ALUGUEL e, 
finalmente, o dia do vencimento. A pa- 
lavra ALUGUEL aparecerá naquele dia 
em todos os meses seguintes. 

A opção Celebrações inclui datas co- 
mo aniversários de nascimento, casa- 
mento, enfim, todo evento que tenha 
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ocorrência anual. Os Encontros e Feria- 
dos são tratados como eventos únicos. 

Grave os dados logo depois de entrá- 
los, usando a opção GRAVAR, para 
evitar que alguma informação se perca. 
Eles são armazenados em um arquivo à 
parte, chamado DIÁRIO, e podem ser 
carregados, corrigidos ou apagados a 
qualquer momento, o que torna muito 
fácil a atualização da agenda. 


CALENDÁRIO MENSAL 








“CÁLCULO DE UM EVENTO 





CALENDÁRIO ANUAL 
AGENDA DIÁRIA 
- REGISTRO DE EVENTOS 











USO DO PROGRAMA 





Depois de digitar alguns dados, você 
poderá observar o funcionamento da 
agenda, Se teclar o número do mês e 
ano, verá todas as entradas para aquele 
mês, incluindo compromissos financei- 
ros ou celebrações levadas de um mês a 
outro pelo programa, 

As entradas são agrupadas nas dife- 
rentes categorias. Antes de exibir deter- 
minado grupo na tela, o programa es- 
pera que uma tecla seja pressionada. 
Dessa maneira, nenhuma entrada será 
retirada sem que você possa vê-la. Se 
dispuser de uma impressora, copie to- 
das as entradas em papel, sempre que as- 
sim julgar necessário. 

Se você decidir voltar à opção de ca- 
lendário e apontar o mesmo mês, pode- 
rá destacar as datas correspondentes a 
compromissos na agenda pressionando, 
para cada uma das categorias, as teclas 
3. E, OC OU F, 

A escolha de uma ou de outra opção 
do programa depende daquilo que se 
quer encontrar, Se você pretende exami- 
nar a programação para um determina- 
do mês, a escolha mais adequada será 
a da agenda. Mas você pode precisar ex- 
clusivamente de informações sobre os 
eventos financeiros do ano, para fazer 
um planejamento. Nesse caso, será me- 
lhor selecionar o calendário para um dos 
meses, destacar Os compromissos co- 
merciais teclando $, passar para o mês 
seguinte e repetir a operação até com- 
pletar o período desejado. 

Como você verá, nosso programa é 
muito versátil. Você descobrirá várias 
outras possibilidades tão logo comece 
a usá-lo, 





PRIMEIRA PARTE 


Dividimos o programa em três par- 
tes. À primeira, que apresentamos a se- 
guir, contém várias rotinas e a tela do 
menu principal. As outras duas partes, 
incluindo instruções mais detalhadas de 
como usar q programa, serão dadas em 
artigos futuros. 

Não se esqueça de que deve gravar es- 
ta parte do programa para acrescentá- 
la às próximas. 


E FINANÇAS, ENCONTROS, 
CELEBRAÇÕES E FERIADOS 

E COMO USAR A AGENDA 
E PRIMEIRA PARTE 
DO PROGRAMA 


10 DATA 2,4,1,3,7,31,28,31,30 
,31,30,31,31,30,31,30,31 

20 DATA "MENS","TRIM","ANUA”, 
"UNIC” 


30 BORDER O: PAPER O: INK 7: 
CLS 

40 CLS 

50 CLEAR LET P=2 

60 LET Z8=" 


70 DIM 08(1,31): DIM Q(4): 
DIM L$(4,150,31): DIM T$S(4,12 
): DIM C(4): DIM Z(5) 

80 FOR n=1 TO 5: READ Zín): 
NEXT n 


90 DIM D(12): FOR n=1 TO 1%: 


READ D(n): NEXT n 

100 LET M$="Janeiro Fevereiro 
Marco Abril Maio Jun 
ho Julho Agosto Setemb 


ro Outubro Novembro Dezembro 


110 LET n8="DomSegTerQuaQuisSex 
Sab” 


120 DIM PS(4,4): FOR n=1 TO 4: 


READ PS(n): NEXT n 
130 LET TS(1)="Financas”: LET 
TS(2)="Apontamentos": LET T8(3 


)j="Celebracoes": LET TS(4)="Fe 


riados” 

1140 DEF FN M(A)J=((A/K2-INT (A/ 
K2))*K2) 

150 LET SV=0: LET MO=0: LET DA 
=0 

160 PRINT "HA ALGUMA LISTA DE 
NADOS GRAVADA(S/N) 7": LET KS$ 
"an" 

170 CLS : GOSUB 990: CLS LET 
P=2 

180 IF C=1 THEN GOSUB 760 

190 IF C=2 THEN GOSUB 1760 
200 IF C=3 THEN GOSUB 2240 
210 IF C>3 AND C<B THEN LET K 
B=C-3: GOSUB 1140: LET SV=1 
220 IF C=B THEN GOSUB 1610: 


LET SV=0 

230 IF C=9 AND SV=1 THEN 

PRINT : PRINT "VOCE NAO GRAVOU 
AS ALTERACOES"'"CONFIRMA A SA 
IDA ?": LET K$="sn”: GOSUB 
1480: IF KB=2 THEN LET C=0 
240 IF C<>9 THEN GOTO 170 

250 CLS : PRINT “ADEUS !* 

260 STOP 

270 LET MX=0: LET AZ=0 

280 LET K2=á4: IF FN M(YR)=0 
THEN LET AZ=] 
290 LET K2=100: 
THEN LET AZ=0 


IF EN M(YR)=0 
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300 LET K2=400: IF EN M(YR)=0 7 


THEN LET AZ=1 

310 IF KB=2 THEN LET MX=A2+28 
320 IF KB=0 THEN LET KB=1 

330 IF KB<>2 THEN LET MX=D(KB 
) 

340 LET KB=MX: RETURN 

350 LET R$S=0 

360 IF DA=DE AND MO=ME AND KB= 
S THEN LET KB=5: RETUAN 

370 IF KB=5 THEN LET KB=7: 
RETURN 

380 LET RS=Z (KB) 

390 IF Q(KB)=0 THEN GOTO 450 
400 LET M4=Q(KB) 

410 FOR I=1 TO M4 

420 LET KS=LS(KB,1): LET K2=3: 
GOSUB 470: IF VAL KS(2 TO 3)<> 
DA THEN LET K2=0 

430 IF K2=1 THEN LET KB=7: 
RETURN 

440 NEXT I 

450 LET KB=RS 

460 RETURN 

470 IF KB<>l THEN GOTO 520 
480 IF VAL K$(1)=3 THEN GOTO 
540 

490 IF VAL KS(1)=4 THEN GOTO 


Q 
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530 

500 IF VAL KS(1)=1 AND VAL K3( 
2 TO 3)=DA THEN LET K2=1: 
RETURN 


510 IF VAL KS(1)=2 AND EN M((( 


(YR-VAL KS(6 TO 9))*12)+(12- 
VAL K$(4 TO 5))+M0))=0 THEN 
LET K2=1: RETURN 

520 IF KB=3 THEN GOTO 540 

530 IF VAL KS(2 TO 3)=DA AND 
VAL K$(4 TO 5)=MO AND VAL KS(6 
TO 9)=YR THEN LET K2=1: 
RETURN 

540 IF VAL KS(4 TO 5)=MO THEN 
LET K2=1: RETURN 

550 LET K2=0: RETURN 

560 LET Y2=0: LET D2=0: LET M2 
=0 

570 LET Y2=YR-1 

580 LET D2=Y2*365+INT (Y2/4)- 
INT (Y2/100)+INT (Y2/400) 

590 IF MO=1 THEN GOTO 630 

600 FOR m=1 TO MO-] 

610 LET KB=m: GOSUB 270: 
2=D2+KB 

620 NEXT m 

630 LET KB=D2+DA: RETURN 

640 LET MS=MO: LET DS=DA 


LET D 





650 LET DA=1: LET MO=3: GOSUB ” 
560: LET K2=7: LET DE=FN M(KB) 
660 LET N2= (INT (YR/100))-16: 
LET C2=3+N2-INT ((N2+1)/3)-INT 
(N2/4) 

670 LET K2=19: LET N2=EN M(TB+ 
1): LET K2=30: LET D2=FN M(C2+ 
(N2*19)) 

6BO IF N2>11 AND D2<27 THEN 

LET D2=D2-1: GOTO 700 

690 IF N2<=11 AND D2=29 THEN 
LET D2=28B 

700 LET D2=D2+21 

710 LET D2=D2+1: LET K2=7: IF 
INT (FN M(D2+DE)+0.1)<>1 THEN 
GOTO 710 

720 IF D2<32 THEN LET ME=3 

730 IF D2>=32 THEN LET D2=D2- 
31: LET ME=4 

740 LET DE=INT (D2+0.1): 
O=MS: LET DA=DS 

750 RETURN 

760 GOSUB 2510: GOSUB 2480 

770 CLS 

780 LET MkK=5 

790 CLS 

B00 PRINT AT 17,0;"<BREAK> ret 
orna ao menu” 

BlLO0 PRINT "Teclas z,x alteram 
Mes” 

B20 PRINT INK 7;TS(1); INK Z; 
* E *”*; INK 7;T5S(2); INK 4;" À 


LET M 


B30 PRINT INK 7;T8(3); INK 1; 
PC *”"* INK Z:T5(4); INK 34” F 
B40 PRINT AT 0,0; 
850 GOSUB 2570: IF MK<5 THEN 
PRINT TS (MK) 
B60 PRINT 4P: LET KBr=l: 
1920 
B70 IF P=3 THEN PRINT 4P 
BBO PRINT 4P: LET T2=MK: LET 8 
2=1: GOSUB 2020 
B90 LET P=2 
900 LET K$="zxfacf *: 
1480: LET A=KB 
910 IF A=1 THEN LET MO=MO-] 
920 IF A=2 THEN LET MO=MO+1 


GOSUB 


GOSUB 


930 IF MO=13 THEN LET MO=1: 
LET YR=YR+1: GOSUB 640 
940 IF MO=0 THEN LET MO=12: 
LET YR=YR-1: GOSUB 640 


950 IF A>2 AND A</7 THEN LET 
MK=A-2 
960 IF A<3 THEN LET MK=5 
970 IF A<>7 THEN GOTO 790 
980 RETURN 
990 CLS PRINT PAPER 5; INK 
1;AT 0,5;" CALENDARIO & DIARIO 
"; PAPER 6; INK O;AT 2,7;" MEN 
U PRINCIPAL * 
1000 FOR Z=1 TO 19: PRINT PAPE 
Rs” 
"*: NEXT Z: PRINT AT 3,0 
1010 PAPER 1: INK 7 
1020 PRINT AT 4,1;"1- Consultar 
calendario mensal” 
1030 PRINT AT 6,1;"2- Consultar 
calendario anual“ 
1040 PRINT AT 8,1;"3- Consultar 
diario” 











1050 PRINT AT 10,1;"4- Rever/Ed 
itar Financas” 

1060 PRINT AT 12,1;"5- Rever/Ed 
itar Apontamentos” 

1070 PRINT AT 14,1;"6- Rever/Ed 
itar Celebracoes" 

1080 PRINT AT 16,1;"7- Rever/Ed 
itar Feriados” 

1090 PRINT AT 18,1;"B- Gravar a 
s listas” 

1100 PRINT AT 20,1;"9- Sair do 
programa” 

1110 PRINT TAB 9;"Faca a opcao” 


10 CLS 
20 CLEAR 5000 


30 DIM LIS(3,150),TYS(3),CO(4) 
40 DM$="31283130313031313031303 


À Su 

50 MNS=" JANEIRO  FEVEREIROMARCO 
ABRIL MAIO JUNHO, 

JULHO AGOSTO SETEMBRO OUTU 


BRO NOVEMBRO DEZEMBRO * 

60 DNS="DOMSEGTERQUAQUISEXSAB” 
70 PAS="MENSTRIMANUAUNIC”" 

BO TYS(0)="FINANCAS":TYS(1)="EN 
CONTROS":TY5(2)="CELEBRACOES”":T 
Y$(3)="FERIADOS” 

90 DEF FNM(A)=INT((A/K2-INT(A/K 
2))*K2+0.5) *SGN(A/K2) 

100 SV=0:P=0:MO=0:DA=0 

110 PRINT €256,"HA ALGUMA LISTA 
DE DAOS GRAVADA? (S5/N)" 

120 REM 

130 CLS:GOSUB 1030:CLS:P=0 

140 IF C=1 GOSUB 770 

150 IF C=2 GOSUB 2010 

160 IF C=3 GOSUB 2460 

170 IF C>3 AND C<8 THEN KB=C-4: 
GOSUB 1180:SV=1 

180 IF C=B8 GOSUB 1730:SV=0 

190 IF C=9 AND SV=1 THEN PRINT: 
PRINT"VOCE NAO GRAVOU AS ALTERA 
COES": PRINT"CONFIRMA A SAIDA?": 
KB$="SN”:GOSUB 1590:IF KB=2 THE 
N C=0 


200 IF C<>9 THEN 120 
210 CLS:PRINT” ADEUS !” 
220 END 

230 "COMPRIMENTO DO MES 


240 MX=0:A2=0 


250 K2=4:1IF ENM(YR)=0 THEN AZ=1 
260 K2=100:IF ENM(YR)=O THEN AZ 
=0 

270 K2=400:IF FNM(YR)=O0 THEN AZ 
=] 

280 IF KB=2 THEN MX=A2Z+28 

290 IF KB<>2 THEN MX=VAL (MIDS(D 


MS,KB*2-1,2)) 

300 KB=MX: RETURN 

310 '"CARACTER DECISORIO 

320 AIS="":N3=0:F3=0:M3=0 

330 IF P=2 THEN R5S=32:GOTO 460 
340 IF KB=5 AND MO=ME AND DA=DE 
THEN RS=191:GOTO 460 

350 IF KB=5 THEN RS=143:GOTO 46 
0 

360 MI=VAL (LIS (KB,0)) 

370 REM 


380 N3=N3+1 

390 AIS=LIS (KB,N3) 

400 IF MID$S(A3S,2,1)="" THEN D= 
O ELSE D=ASC(MIDS(A3JS,2,1)) 


410 IF D<>DA THEN 430 

420 KBS$=A3$:GOSUB 470:FI=k2 

430 IF NOT(F3=1 OR N3>M3) THEN 3 
70 

440 IF F3=0 THEN RS=32:GOTO 460 
450 N3=159+16*KB:RS=N3 

460 KB=RS: RETURN 

470 "CONFERIR ITEM NO MES 


480 Tá=0:Y4=0:F4á=0 

490 T4=ASC(MIDS(KBS,1,1)) 

500 Y4=-ASC(MIDS (KB$S,3,1)) 

510 Má=(Y4 AND 15) 

520 Y4=(FIX(Y4/16)+17)*100+ASC( 
MIDS (KB$,4,1)) 

530 IF Y4>YR THEN K2=0: RETURN 
540 K2=3:IF(T4=1 AND MO>=M4)0OR( 
T4=2 AND FNM(M4-MO)=0)OR(T4á=3 A 
ND M4=M0)OR (T4á=4 AND M4=MO AND 
Y4=YR) THEN F4=] 

550 K2=F4:RETUABN 

560 "NUMERO DO DIA 

570 7YX=0:D2=0:M2=0 

580 Y2=YR-1 

590 D2=Y2*365+FIX(72/4)-FIX(Y2/ 
100) +FIX(Y2/400) 

600 IF MO=1 THEN 640 

610 FOR M2=1 TO MO-1 

620 KB=M2:GOSUB 230:D2=D2+KB 
630 NEXT 

640 KB=DZ2+DA: RETURN 


NOS d 





650 REM 

660 N2=0:C2=0:D2=0 

670 MS=MO:DS=DA 

6B0 DA=1:MO=3:GOSUB 560:K2=/:DE 

=FNM (KB) 

690 N2=FIX(YR/100)-16:C2=3+N2Z-F 
IX((N2+1)/3)-FIX(N2/4) 

700 K2=19:N2=FNM(YR+1):K2=30:Dz 
=FNM(C2+(N2*19)) 

710 IF N2>11 AND D2<27 THEN D2= 

D2-1 ELSE IF N2<=11 AND D2=29 T 
HEN D2=28 

720 D2=D2+21 

730 D2=D2+1:K2=7:I1IF FNM(DZ+DE)< 
21 THEN 730 
740 IF D2<32 

Dt-31:ME=4 
750 DE=D2:MO=MS:DA=DS 
760 RETURN 

770 'VER CAL.MES 

780 REM 

790 GOSUB 2750:GOSUB 
800 CLS 

810 PRINT"SETAS UP/DOWN ALTERAM 
MES” 

820 PRINT"USE clear PARA VOLTAR 
AO MENU” 

830 PRINT:PRINT CHR3(159);TYS(O 
);" (8)”",CHR$(175):;TYS(I) 

840 PRINT:PRINT CHR3S(191);TY3(2 
). CHR$(207);TY3(3) 

850 PRINT: PRINT"QUALQUER TECLA 
PARA CONTINUAR” 

855 IF INKEYS="" THEN B55 


THEN ME=3 ELSE D2= 


2720 











B60 MK=5 

870 REM 

BBO CLS 

B90 GOSUB 2820:1IF MK<4 THEN PRI 

NT 619, TYS (MK) 

900 PRINT 4-P:KB=1:GOSUB 2150 

910 IF P=2 THEN PRINT 4-P 

920 PRINT4-P:T2=MK:82=1:GOSUB 2 

240 

930 P=Q 

940 KB3="*""+CHRS (10)+" SECF”*+CHR 

$(12):GOSUB 1590:A=KB 

950 IF A=1 THEN MO=MO-1 

960 IF A=2 THEN MO=MO+1 

970 IF MO=13 THEN MO=1:YA=YR+1: 

GOSUB 650 

980 IF MO=0 THEN MO=12:YA=YA-1: 

GOSUB 650 

990 IF A>2 AND A<7 THEN MK=A-3 

1000 IF A<X3 THEN MkK=5 

1010 IF A<>7 THEN 870 

1020 RETURN 

1030 'RETORNO AO MENU 

1040 PRINT * PROGRAMA CALENDAR 
IO & DIARIO ";STRING8(32,131) 
1050 PRINT TAB(13);"menu” 

1070 PRINT"1- CONSULTAR CALENDA 

RIO MENSAL” 

1080 PRINT"2- CONSULTAR CALENDA 

RIO ANUAL” 

1090 PRINT”"3- CONSULTAR DIARIO” 
1100 PRINT"4- REVER/EDITAR FINA 

NCAS” 

1110 PRINT"S- REVER/EDITAR ENCO 

NTROS" 

1120 PRINT"6- REVER/EDITAR CELE 

BRACOES” 

1130 PRINT”"?7- REVER/EDITAR FERI 

ADOS" 

1140 PRINT"B- GRAVAR AS LISTAS” 
1150 PRINT"9- SAIR DO PROGRAMA” 
1160 PRINT:PRINT TAB(9);"FACA A 
OPCAO” 

1170 KB$="123456789":GOSUB 1590 
:C=KB: RETURN 


Dal 


10 CLS:COLOR 15,4,4:KEYOFF 

12 CLEAR 7000:MAXFILES=3 

15 OPEN "CRT:* FOR OUTPUT AS 43 
20 OPEN "LPT:" FOR OUTPUT AS 42 
30 DIM LI$(3,150),TY3(3),Co(4) 
40 DM$="31283130313031313031303 


50 MN$=" JANEIRO  FEVEREIROMARÇO 
ABRIL MAIO JUNHO 
JULHO AGOSTO SETEMBRO OUTU 


BRO NOVEMBRO DEZEMBRO ":' O nú 
mero de espaços deve completar 
9 caracteres para cada mês 

60 DN$="DOMSEGTERQUAQUISEXSAB” 
70 PAS="mensatr imanuaunic” 

BO TY8(0)="Finanças":TY8(1)="En 
contros":TY8(2)="Celebrações”:T 
Y8(3)="Feriados” 

90 DEF FNM(A)=INT((A/K2-INT(A/K 
2))*K2+.5) *SGN(A/K2) 

100 8V=0:P=0:MO=0:DA=O 

110 LOCATE 1,5:PRINT"Você tem 1 
intas de dados? (8/N)"; 





120 REM 

130 CLS:GOSUB 1030:CLS:P=3 

140 IF C=1 THEN GOSUB 770 

150 IF C=2 THEN GOSUB 2010 

160 IF C=3 THEN GOSUB 2460 

170 IF C>3 AND C<B THEN KB=C-4: 

GOSUB 1180:9V=] 

180 IF €C=B THEN GOSUB 1730:8V=0 
190 IF €=9 AND S8V=1 THEN PRINT: 
PRINT"Você não qravou as ultima 

Bs alterações!":PRINT"Confirma a 
maída? (8/N)”";:KB$="S8N":GOSUB 
1590:1IF KB=2 THEN C=0 

200 IF C<>9 THEN 120 

210 CLS:CLOSE:PRINT"Até logo... 


220 END 

230 ' Tamanho do mês 

240 MX=0:A2=0 

250 K2=4:IF FNM(YR)=O THEN AZ=1 
260 K2=100:IF ENM(YR)=O0 THEN AZ 
= 

270 K2=400:1F ENM(YR)=O0 THEN AZ 
=] 

280 IF KB=2 THEN MX=A2+28 

290 IF KB<>2 THEN MX=VAL (MIDS (D 
M$S,KB*2-1,2)) 

300 KB=MX: RETURN 

310 ' Marcar dia de compromisso 
320 AI9="":N3=0:F3=0:MI=0 

330 IF P=2 THEN R8=32:GO0TO 460 
340 IF KB=5 AND MO=ME AND DA=DE 
THEN RS=42:G0T0O 460 


MRE 5 8 1 SS 5 E 


350 IF KB=5 THEN R8=32:G0To 460" 


360 MI=VAL (LIS (KB,0)) 

370 REM 

380 N3=N3+1 

390 AIJS=LIS(KB,N3) 

400 IF MIDS(A35S,2,1)=""* THEN Ds= 

O ELSE D=ASC(MIDS(A38,2,1)) 

410 IF D<>DA THEN 430 

420 KB9=A33:GOSUB 470:FI=KZ 

430 IF NOT (F3=1 OR N3>M3) THEN 
370 

440 IF F3=0 THEN RS$=32:GOTO 460 

450 RS8=62 

460 KB=AR5:RETURBN 

470 '* Procura por ítem em mês 

4B0 Tá=0:Y4=0:F4=0 

490 T4=ASC(MIDS(KBS,1,1)) 

500 Y4=ASC(MIDS (KB8,3,1)) 

S10 Má=(Y4 AND 15) 

520 Yá=(FIX(Y4/16)+17)*100+ASC( 

MIDS (KB8,4,1)) 

530 IF Y4>YR THEN K2=0:RETURN 

540 K2=3:1IF (T4=] AND MO>=M4) O 

A (T4=2 AND FNM(M4-MO)=0) OR (T 

4=3 AND M4á=MO) OR (T4á=4 AND Md= 

MO AND Y4=YR) THEN Fá=l 

550 K2=F4:RETURN 

560 ' Det número do dia 

570 YX=0:D2=0:M2=0 

580 Y2=YR-1 

590 D2=Y2*365+FIX(Y2/4)-FIX(YZ/ 

100) +FIX(Y2/400) 

600 IF MO=1 THEN 640 





E 








FOR M2=1 TO MO-1 
KB=M2:GOSUB 230:D2=D2+KB 
630 NEXT 

640 KB=D2+DA: RETURN 

650 '* Encontrar o dia de Páscoa 
660 N2=0:C2=0:D2=0 

670 MS=MO:DS=DA 

680 DA=1:MO=3:GOSUB 560:K2=7:DE 
=FNM (KB) 

690 N2=FIX(YR/100)-16:C2=3+N2-F 
IX( (N2+1)/3)-FIX(N2/4) 

700 K2=19:N2=FNM (YR+1):K2=30:D2 
=FNM(C2+(N2*19)) 

710 IF N2>11 AND D2<27 THEN D2= 
D2-1 ELSE IF N2<=11 AND D2=29 T 
HEN D2=28B 

720 D2=D2+21 

730 D2=D2+1:K2=7:IF FNM(D2+DE)< 
>1 THEN 730 

740 IF D2<32 THEN ME=3 ELSE D2= 
D2-31:ME=4 

750 DE=D2:MO=MS:DA-DS 

760 RETURN 

770 ' Consulta 
780 REM 

790 GOSUB 2750:GOSUB 2720:MK=5 
B0O0 CLS:LOCATE 0,20 

810 PRINT"<- e -> mudam o mês 
| 
B20 
830 
) 
B40 
) 
B50 
B60 
870 
880 
B90 
ATE 
B95 
900 
910 
920 
240 
930 P=3 

940 KBS=CHAS (29) +CHRS (28) +" SECF 
"“+CHR3 (27) :GOSUB 1590:A=KB 

950 IF A=1 THEN MO=MO-1 

960 IF A=2 THEN MO=MO+1 

970 IF MÓ=13 THEN MO=1:YR=YB+1: 
GOSUB 650 

980 IF MO=0 THEN MO=12:YR=YR-1: 
GOSUB 650 

990 IF A>2 AND A<7 THEN MK=A-3 


610 
620 


calend mengal 


PRINT"<esc> volta ao menu”; 
PRINT"S:";TYS(0),"E:";TYS(I 


PRINT"C:";TY8(2),"F:";TYSCI 


LOCATE 0,0 

REM 

REM 

REM 

GOSUB 2820:IF MK<4 THEN LOC 
3,2: PRINTTYS (MK) 

REMIF P=2 THEN LPRINT 
PRINTAP,:KB=1:GOSUB 2150 

IF P=2 THEN LPRINT 
PRINT&P,:T2=MK:92=1:GOSUB 2 


1000 IF A<3 THEN MK=5 
1010 IF A<>7? THEN 800 
1020 RETURN 


1030 ' Menu devolve escolha em 
KB 

1040 LOCATE10,0:PRINT"CALENDARI 
O E DIARIO” 

1050 PRINT:PRINTTAB (16) ;"Menu' 
1060 PRINT 

1070 PRINT”"1- Consultar calendá 
rio mensal” 

1080 PRINT: PRINT"2- Consultar c 
alendário anual” 

1090 PRINT:PRINT"3- Consultar d 
iário” 

1100 PRINT:PRINT"4- Rever/edita 
r finanças” 


1110 PRINT: PRINT"5- 
r encontros” 

1120 PRINT: PRINT"6- 
r celebrações” 

1130 PRINT:PRINT"?- 
r feriados” 

1140 PRINT:PRINT"8- 
intas” 

1150 PRINT: PRINT"9- 
rama” 

1160 PRINT:PRINTTAB (9) ;"Escolha 
4 

1170 KB$="123456789" :GOSUB 1590 
1€C=KB: RETURN 


Lo HOME 
30 DIM LI8(3,150),TYS(3),CO(4) 


Rever /edita 
Rever /edita 
Rever/edita 
Gravar as 1 


Fim de prog 





40 DMS = "312831303130313130313 

031º 

50 MNS = "JANEIRO  FEVEREIROMAR 

co ABRIL MAIO JUNHO 
JULHO AGOSTO SETEMBRO OU 

TUBRO NOVEMBRO DEZEMBRO 

60 DNS = "DOMSEGTERQUAQUISEXSAR 


70 PAS = "MENSALTRIMESANUAL UNI 
Co ":D$S = CHARS (13) + CHR3 (4 


) 

BO TY8(0) = "FINANCAS":TYS(1) = 
"ENCONTROS" :TYS(2) = "CELEBRAC 

OES":TY8(3) = "FERIADOS" 

90 DEF FNM(A) = INT ((A / K 

2? - INTIA/K2)) *K2 4.5) * 
SGN (A / K2) 

100 8SV = 0:P = 0:MO = O:DA = O 

110 VTAB 8: PRINT "VOCÊ TEM LI 

STAS DE DADOS? (58/N) "; 

120 REM 





| to 


117 


| 12 13 16 
teto 





NADERE EE FM E SE AS ERRAR!) 
| 


130 HOME : GOSUB 1030: HOME :P' 
- 0 

140 IF C = 1 THEN GOSUB 770 

150 IF C = 2 THEN GOSUB 2010 
160 IF C = 3 THEN GOSUB 2460 
170 IF C> 3 ANDC<êB 'THENHKB 
= CC - 4: GOSUB I[1B0:SV = 1 

180 IF C = 8 THEN GOSUB 1730: 

8Vv = Q 

190 IF C= 9 ANDÕSV= Ii THEN 
PRINT : PRINT "VOCE NÃO GRAVOU 


AS ALTERACOES!”: PRINT "CONFIRM 
A A SAIDA? (9/N)":KBS = "SN": G 
OSUB 1590: IF KB = 2 THEN C = 0 


200 IF C< > 9 THENJIZO 


210 HOME : PRINT "ATE LOGO...” 
220 END 
230 REM DURACAO DO MES 


240 MX = 0:A2 = O 


250 KZ = 4: IF FNM(YR) = O TH 
EN AZ = 1 

260 K2 = 100: IF FNM(YR) = O 
THEN AZ = O 

270 KZ = 400: IF EN MCYR) = O 
THEN AZ = 1 


280 IF KB = 2 THEN MX = AZ + 2 
8 

290 IF KB < > 2 THEN MX = VA 
L ( MIDS (DMS,KB * 2 - 1,2)) 
'300 KB = MX: RETURN 

310 REM CARACTER MARCADOR 

320 AIJS = "":N3 = 0:F3 = 0:M3 = 


0 

330 IFP = 2 THEN RS = 32: GOT 
o 460 

340 IF KB = 5 AND MO = ME AND 


DA = DE THEN RS = 42: GOTO 460 
350 IF KB = 5 THEN R8 = 32: GO 


TO 460 





360 M3 = VAL (LIS(KB,0)) 

370 REM 

380 N3 = N3 + 1 

390 A3S = LIS(KB,N3) 

400 IF MIDS (A3$,2,1) = “" TH 
EN D = 0 

405 IF MIDS (A33,2,1) < > 7º 
THEN D = ASC ( MIDS (A33,2,1) 
) 

410 IF (D< > DA) THEN 430 
420 KBS = A3$: GOSUB 470:F3 = K 
2 
430 IF NOT (F3 = 1 OR N3>M3 
) THEN 370 

440 IF F3 = O THEN RS = 32: GO 

TO 460 

450 RS = 62 

460 KB = RS: RETURN 

470 REM VERIFICA ITEM EM MES 
480 T4 = 0:Y4 = O:F4 = O 


490 Tá = ASC ( MIDS (KB3,1,1)) 
500 v4 = ASC ( MIDS (KB3,3,1)) 
T = T4 


510 Y4 = ( INT ( ABS (Y4 / 16)) 
+ 17) * 100 + ASC ( MIDS (KBS 
Ai) 


520 Má = T- (( INT (Y4 / 100) 


e 7) Fo Ad) 

530 IF Y4 > YR THEN KZ = O: RE 

TURN 

540 KZ = 3: IF (Tá = 1 AND ((Y4 
< YR) OR (MO > = M4 AND Y4 = 

YR))) OR (Tá = 2 AND FN M(Má - 
MO) = 0) OR (T4 = 3 AND Má = M 

O) OR (T4 = 4 AND Má = MO AND Y 

4 = YR) THEN F4 = 1 

550 KZ = F4: RETURN a 
560 REM NUMERO DO DIA 

570 YX = 0:D2Z = 0:MZ = 0 

580 Y2 = YR -1 

590 D2 = Y2 * 365 + INT ( ABS 
(Y2 / 4)) - INT ( ABS (Y2 / 10 
0)) + INT ( ABS (Y2 / 400)) 
600 IF MO = 1 THEN 640 

610 FOR M2 = 1 TOMO -1 

620 KB = M2: GOSUB 230:D2 = DZ 
+ KB 

630 NEXT 

640 KB = DZ + DA: RETURN 

650 REM DATA DA PASCOA 

660 N2 = 0:C2 = 0:D2 = O 

670 MS = MO:DS = DA 

680 DA = 1:MO = 3: GOSUB 560:K2 
= 7:DE = EN M(KB) 

690 N2 = INT ( ABS (YR / 100)) 
- 16:C2 = 3 + N2 - INT ( ABS 
(UNZ+ 1) 47 3)) - INT ( ABS (N 
2 / 4)) 

700 KZ = 19:N2 = EN M(YR + 1): 
KZ = 30:D2 = FN M(C2Z + (NZ * 1 
9)) 

710 JIF NZ > 11 AND D2 < 27 THE 
N D2 = DZ - 1: GOTO 720 

715 IF N2< = 11 ANDDZ=Z9 
THEN DZ = 2B 

720 DZ = D2 + 21 

730 D2 = DZ + 1:K2 = 7: IF EN 
M(DZ + DE) < > 1 THEN 730 

740 IF D2 < 32 THEN ME = 3: GO 
TO 750 

745 D2 = DZ - 31:ME = 4 





SEE SS E E ESSAS Rs 
[TJ] DT]]]]JI0ÕÃJDoDro»yzfº|JZft|:-' ! "TS 


750 DE = D2:MO = MS:DA = DS 

760 RETURN 

770 REM CALENDARIO MENSAL 

780 REM 

790 GOSUB 2750: GOSUB 2720:MK 

= 5 

B00 HOME 

BlO VTAB 21: PRINT "<- ->: MUD 

A O MES nt 

B20 PRINT "<ESC> = MENU” 

B30 PRINT "S:"TYS(0),"E:"TYSC(1 

) 

840 PRINT "C:"TYS(2),"F:"TYS(3 

Ji 

850 REM 

855 REM 

870 REM 

B80 PRINT DS;"PR4";P: VTAB 1: 

HTAB 1 

B90 GOSUB 2820: IF MK < 4 THEN 
HTAB 20: VUTAB 1: PRINT TY3 (MK 

) 

900 PRINT 

UB 2150 

910 IF P = 1 THEN PRINT : 

920 PRINT :TZ = MK:S2 = 1: G05 

UB 2240 

930 P = O: PRINT DS;"PR&";P 

940 KBS = CHAS (8) + CHRS (21 

) + "SECF”" + CHRS (27): GOSUB 

1590:A = KB 

950 IF A = 1 THEN MO = MO -1 

960 IF A = 2 THEN MO =MOh+hI1 

970 IF MO = 13 THEN MO = 1:YR 

= YR + 1: GOSUB 650 

980 IF MO = O THEN MO = 12:YR 

= YR - 1: GOSUB 650 

990 IF A > 2 ANDAS 7 THENME 
= A-3 


PRINT :KB = 1: GOS 


1000 IF A < 3 THEN MK = 5 

1010 IF A< > 7 THEN BOO 

1020 RETURN 

1030 REM MENU DEVOLVE ESCOLHA 

EM KB 

1040  INVERSE PRINT TAB( 4)” 

PROGRAMA DE CALENDARIO E DIARIO 
"+ NORMAL 

1050 PRINT PRINT TAB( 18)"M 

ENU” 

1060 PRINT 

1070 PRINT TAB( 8);"1:-VER CA 


LENDARIO MENSAL” 
1080 PRINT : PRINT TAB( 8);"2 
:-VER CALENDARIO ANUAL” 


1090 PRINT PRINT TAB( B);"3 
:- VER DIARIO” 
1100 PRINT PRINT TAB( B);"4 


'-REVER/EDITAR FINANCAS” 

1110 PRINT : PRINT TAB( 8);"5 
«- REVER/EDITAR ENCONTROS” 

1120 PRINT : PRINT TAB( 8);"6 
“«-REVER/EDITAR CELEBRACOES” 


1130 PRINT : PRINT TAB( 8);7/ 
:-REVER/EDITAR FERIADOS” 

1140 PRINT : PRINT TAB( B);"B 
:“-GRAVAR AS LISTAS” 

1150 PRINT : PRINT TAB( 8);"9 
:-SAIR DO PROGRAMA” 

1160 PRINT PRINT PRINT TA 


B( 15)"ESCOLHA ”; 
1170 KB$ = "123456789": 
590:C = KB: RETURN 


GOSUB 1 


| ses cálculos em BASIC ou outra lingua- 










COMO CALCULAR DATAS 
EM UM PROGRAMA DE CALENDÁRIO 






Um problema sério de programação, 

para quem deseja desenvolver aplica- | 
ções que envolvem cálculos de datas | 
ou a determinação das funções de um 
calendário universal, é a realização des- 







gem de alto nível. 

Há várias soluções para o problema 
— Umas mais fáceis e intuitivas e ou- 
tras mais difíceis, mas que utilizam al- | 
goritmos (''truques'” matemáticos de | 
cálculo) bem compactos. Desenvolvi- 
do o procedimento para todos os tipos 
de cálculo, organize-os na forma de 
sub-rotinas, que poderão ser usadas 
em diversos programas. 

Esse assunto será tratado em um ar- 
tigo especial, mas adiantamos aqui al- 
gumas considerações importantes: 















e Teste de datas | 

Tenha sempre o cuidado de testar | 
a data fornecida pelo usuário, que de- 
verá ser entrada no formato numérico 
(no Brasil, DD/MM/AAAA). 

Verifique se o número do mês cai 
entre01e 12eseo dia do mês cai en- 
tre 1 e o número de dias no mês (28, | 
29, 30 ou 31). Pode-se armazenar O | 
número de dias para cada mês em um | 
conjunto de doze elementos. 

Teste, também, se o ano é bissex- 
to. Para isso, basta verificar se ele é di- 
visível exatamente por 4. 

A maneira de testar o ano varia com 
a aplicação. Se se pede ao usuário a da- 
ta atual, por exemplo, pode-se incluir 
na rotina um teste que indique se ela 
é ou não anterior à data de criação do 
programa! 
























* Tipos de data 

O tipo de data que utilizamos | 
(DD/MM/AA), chamado de data grego- 
riana, é muito inconveniente para en- 
trada em computador e para cálculos 
de diferenças de datas. Para colocá-las | 
em ordem crescente é preciso alterar 
a ordem dos seus três elementos: o al- 
goritmo de ordenação deve testá-las, 
como AAMMDOD, 

Existem outros tipos de data, mais 
racionais. A data ordinal, por exemplo, 
torna bem mais fácil calcular diferen- 
ças entre datas. É expressa numa for- 
ma como esta: 123/1986 — ou seja,| 
dia nº 123 (desde 1º de janeiro) do ano| 
de 1986. A data fiscal, por sua vez, le- 
va em consideração o número do dia. 
da semana e o número da semana. 
(3/25/1986 é a terça-feira da 25º se- 
mana de 1986). 




















LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





MRaENO PRÓXIMO NÚMERONEEE 


PROGRAMAÇÃO DE JOGOS 


Acione a manivela da máquina caça-níqueis de INPUT Ela não vai deixá-lo de bolsos vazios. 


PERIFÉRICOS 
Monitores ou televisores? Para fazer uma boa escolha, conheça 
as características desses dois aparelhos. 


PROGRAMAÇÃO BASIC 


Com nosso programa “desenhista”, transforme o vídeo de seu TK-2000 em uma tela de pintura. 


APLICAÇÕES 
Liste as novas rotinas da agenda eletrônica. 
E consulte já o calendário. 





